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PREFACE 


The purpose of this manual is to provide a means by which a user may 
apply the snowmelt-runoff model (SRM) unaided. To this effect, model 
structure, conditions of application, and data requirements, including 
remote sensing, are described. Guidance is given for determining various 
model variables and parameters. Possible sources of error are discussed and 
conversion of SRM from the simulation mode to the operational fore- 
casting mode is explained. A computer program is presented for running 
SRM which should be easily adaptable to most systems used by water 
resources agencies. 

In view of the variety of snowmelt conditions that may be encountered, 
it is not possible to foresee all situations in which the model may be 
applied. The authors will be glad to assist users with specific problems 
that may not be answered by the manual. 

Special gratitude is extended to the Goddard Space Flight Center and the 
Federal Institute for Snow and Avalanche Research for their support of 
this international scientific cooperation. 
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INTRODUCTION 

The snowmelt-runoff model (SRM; also referred to in the literature as the“Martinec Model” or 
“Martinec-Rango Model”) is designed to simulate and forecast daily streamflow in mountain 
basins where snowmelt is a major runoff factor. SRM was developed by Martinec (Reference 1) 
in small European basins. With the advent of satellite snow-cover data in the 1970s, it became 
possible to test SRM in larger basins. Using Landsat data the model was successfully applied to 
various basins in the U.S.A. (References 2,3, and 4). Figure 1 illustrates the relative size of some of 
the basins in which the model has been tested so far. Based on these tests, the model was adapted 
to a wide range of basin and data characteristics. 

RANGE OF CONDITIONS FOR MODEL APPLICATION 
Basin Conditions 

The size of the basin to which SRM is applied does not yet seem to be a limiting factor. The 
model so far has been used on basins ranging from 2.65 km^ to 4000 km^ (Kings River, California; 
Reference 5) with no serious problems encountered. As pointed out by Rango and Martinec 
(Reference 6), however, the accuracy of simulation generally decreases as the basin size increases 
because of sparse hydrometeorological data networks. 

As already mentioned, SRM is to be used in a mountain basin with significant snow accumulation. 
The total basin relief (amplitude of elevation) encountered on watersheds tested so far has ranged 
between 350 and 4000 m. No problems are envisaged in application of the model to basins with 
a greater total relief, however, in basins with less total relief problems may arise due to the fact 
that SRM may not be applicable to non-mountain basins. 

SRM has been used in mountain basins ranging in climate conditions from humid to semi-arid 
with no serious limitations. It seems, however, that simulations tend to be less accurate when 
there are significant amounts of rainfall during the snowmelt period. 
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Figure 1 . Area and total basin relief (AH) of a selection of basins in which the snowmelt-runoff 

model has been applied. 
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Data Quality 

The model requires good daily air-temperature and precipitation data and periodical monitoring of 
snow-covered area in the given basin by satellites, aircraft, or visual observations. Long term 
historical data sets are not necessary (but helpful, if available) because little or no optimization 
(calibration) of the model parameters is necessary. The model can be run with as little as 1-2 
years of record. 

Daily discharge data from the basin are required to determine the recession coefficient and, other- 
wise, only to evaluate the accuracy of simulation. The discharge preceding the start of the snow- 
melt season (winter baseflow) must be known or estimated for initializing the model. Past continu- 
ous discharge records (hydrographs), if available, are useful to determine the time lag between the 
temperature and discharge cycles. 

The optimum conditions for accurate simulation of runoff have been identified as follows 
(Reference 6): (1) temperature and precipitation are recorded at the mean elevation of the basin 
inside the basin boundaries (or at the zonal mean elevation for large basins); (2) snow cover is 
available reliably once per week to detect short-term variations in zonal areal extent; (3) several 
climatological stations are available for large basins, especially in areas with frequent summer 
precipitation events; and (4) several years of daily runoff records have been acquired for the 
determination ofthe recession coefficient. Decreases in accuracy will be expected as these optimum 
conditions are compromised. However, acceptable simulations will result even under the following 
minimum conditions; (1 ) temperature and precipitation data are observed outside the basin at a 
considerable horizontal and vertical distance; (2) snow-cover observations are only available two 
to three times during the snowmelt season; (3) climatological observations are not possible at 
multiple stations; and (4) no runoff records are available so that the recession coefficient must be 
estimated from the basin size (see section Recession Coefficient). 

MODEL OUTPUT PRODUCTS 

In the simulation mode, SRM produces daily discharge values from the start until the end of the 
snowmelt period (usually 1 —6 months) using the actual sequence of temperatures and the deple- 
tion curves of the snow coverage obtained from snow-cover monitoring. Because updating is not 
necessary, no measured discharge values are required. Consequently, simulations can serve not 
only for model testing but also serve to establish discharge series in ungauged basins. Instead of 
real temperatures, hypothetical values can be substituted in order to simulate, for example, the 
effect of future changes of climate on the runoff. Seasonal volume simulations are obtained by 
summing the daily flows over the period of interest. Outside the snowmelt period, SRM can be 
operated but careful attention must be paid to the runoff coefficients in which are included the 
effects of evapotranspiration and soil moisture which are not as important during snowmelt. 

For operational short-term discharge forecasts, SRM is run with similarly short-term temperature 
and precipitation forecasts and extrapolations of the snow-cover depletion curves. The forecasting 
period can be from 1 day to several weeks depending on the range of temperature forecasts. In 
such a forecast mode, periodical updating with actual temperatures and discharges and with recent 
snow-cover information is desirable. The model can also be used for seasonal forecasts of the 
expected runoff volumes ranging from several weeks to the total duration of the snowmelt season. 
Such forecasts are based on medium-range prediction techniques, climatological records, or on 
statistically determined sequences of temperatures and precipitation. An extrapolation of the 
snow-cover depletion curves taking into account the forecasted temperatures is also required. 
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MODEL STRUCTURE 


Each day during the snowmelt season, the water produced from snowmelt and from rainfall is 
computed, superimposed on the calculated recession flow, and transformed into the daily dis- 
charge from the basin according to Equation ( 1 ). 

Qn+l=<=nK (T„ + AT„)S„+P„1^^ (1-Vi) + Q„k„^l (1) 


where Q = average daily discharge in m^s”^ 

c = runoff coefficient expressing the losses as a ratio (runoff/precipitation) 

a = degree-day factor (cm • • d"^ ) indicating the snowmelt depth resulting from 

1 degree-day 

T = number of degree-days (°C*d) 

AT = the adjustment by temperature lapse rate necessary because of the altitude differ- 
ence between the temperature station and the average hypsometric elevation of the 
basin or zone 

S = ratio of the snow-covered area to the total area 

P = precipitation contributing to runoff (cm). A preselected threshold temperature, 
Tcrit? determines whether this contribution is rainfall and immediate. 

A = area of the basin or zone in m 


0.01 _ 
86400~ 
k = 


conversion from cm * wP' * d ^ to m^ * s ^ 

recession coefficient indicating the decline of discharge in a period without 

Q I -1 

snowmelt or rainfall: k = ^ 

(m, m+1 are the sequence of days during a true recession flow period) 


n = sequence of days during the discharge computation period. Equation ( 1 ) is 
written for a time lag between the daily temperature cycle and the resulting 
discharge cycle of 1 8 hours. As a result, the number of degree-days measured 
on the nth day corresponds to the discharge on the n+1 day. Different lag times 
will result in the proportioning of day n snowmelt between discharges occurring 
on days n, n+1 and possibly n+2. 


Data available in English units can be converted into the SI system and vice versa by the following 
conversion factors: 


Conversion Factors 

Q[m^ s-1 ] = 0.02832 Q[fP s’^ ] 

Q[ft^ s"M = 35.31 Qlm^ s"^ 

A[km^] = 2.59A[mi^l 

A[mi^] = 0.386 A[km^] 

T[°C • d] = 5/9 T[(°F-32) • d] 

T[(°F-32) -d] = 9/5 T[°C • d] 


4 



a[cm-®C-l-d-h = 4.57 a[m*(°F-32)-l • d"h 

4z[in»(°F-32)-l-d-M= 0.22 a[cm-°C-^ -d-^ 

P[cm] = 2.54 P[in] 

P[in] = 0.39 P[cm] 

For Q in in in * (°F— 32°) * d“^ , T in (°F— 32°) * d, P in in and A in mi^, the conversion 

constant 0.01/86400 in Equation (1) becomes 2323200/86400. For A in ft^', the conversion 
constant becomes 0.0833/86400. 


In Equation (1), T, S, and P are variables to be measured or determined each day; whereas, c, a, k, 
and AT are parameters which are characteristic for a given basin or, more generally, for a given 
climate. The parameters are evaluated before hand from actual data, observations, or prior know- 
ledge, or they are estimated by analogy from other basins. In addition, the area-elevation curve of 
the basin is required in order to determine the altitude difference for the extrapolation of 
temperature. If the elevation range of the basin exceeds 500 m, it is recommended to divide the 
basin into elevation zones of about 500 m each. For an elevation range of about 1500 m and three 
elevation zones A, B, and C, the model equation becomes: 


Q 


n+l 


r ^ ^ n Aa • 0.01 

^An ^^An^ ^An ^An^ 


^Bn ''' ^^Bn^ ^Bn ^Bn^ 


86400 
Ab • 0.01 
86400" 


+ 


( 2 ) 


Ac • 0.01 

^Cn 86400* “ ^n+1 ^ ^n+1 


The indices A, B, and C refer to the appropriate elevation zone, and, again, a time lag of 18 hours 
is assumed. 


In the simulation mode, the model can function without updating during the snowmelt period. 
The discharge data serve only to evaluate the accuracy of the simulation. In ungauged basins the 
simulation is started with a discharge estimated by analogy to a nearby gauged basin. In the 
forecasting mode, if the discharge data are available, the model provides an option for updating 
on a periodic basis with actual discharge. 


DETERMINATION OF MODEL VARIABLES AND PARAMETERS 
Basin Characteristics 
Basin and Zone Areas 

The basin boundary is defined by the location of the streamgauge (or some arbitrary point on the 
streamcourse) and the watershed divide as identified on a topographic map. The basin boundary 
can be drawn on a variety of map scales. For the larger basins, a 1 :250,000 scale map is adequate. 
After examining the elevation range between the streamgauge and the highest point in the basin 
(total basin relieO, elevation zones can be delineated in intervals of about 500 m or 1500 ft. In 
addition to drawing the basin and zone boundaries, several intermediate topographic contour 
lines should be highlighted for later use in constructing the area-elevation curve. Once the 
boundaries and the contours have been determined, the areas formed by these boundaries should 
be planimetered, manually or automatically. Figure 2 shows the elevation zones and areas of the 
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Figure 2. Elevation zones and areas of the South Fork of the Rio Grande basin, Colorado, U.S.A. 
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South Fork of the Rio Grande basin in Colorado, U.S.A. The elevation range of 1408 m dictated 
the division of the basin into three elevation zones. Once the zones are defined, the various model 
variables and parameters are applied to each zone for the calculation of snowmelt runoff. To 
facilitate this application, the mean hypsometric elevation of the zone must be determined through 
use of an area-elevation curve. 

Area-Elevation Curve 

By using the zone boundaries plus other selected contour lines in the basin, the areas enclosed by 
various elevation contours can be determined by planimetering. These data can be plotted (area 
vs. elevation) and an area-elevation (hypsometric) c\^e drawn as shown in Figure 3 for the South 
Fork basin. The zonal mean hypsometric elevation, h, can then be determined from this curve 
by balancing the areas above and below the mean elevation as shown in Figure 3. Theh value is 
used as the elevation to which base station temperatures are extrapolated for the calculation of 
zonal degree-days. 

Variables 

Temperature and Degree-Days 

Although a minimum of one temperature station is required in order to apply SRM to a given 
basin, the ideal situation would have temperature measurements made at the h of each elevation 
zone. As this is usually not the case, the location of one temperature station at the mean hypso- 
metric elevation of the entire basin would be desirable. Both of these situations minimize the 
vertical distance that temperatures would have to be extrapolated for application in the model. 

If this is not possible, the use of two stations, one at the bottom of the basin and one near the top 
would permit computation of an actual temperature lapse rate to be used in extrapolation to the 
various zones. Usually, however, data from only one temperature station at low elevation, and 
many times not even located inside the basin, must be used to calculate the degree-days for melting 
snow in the lowest to the highest elevation zones of the basin. When one station is used, a lapse rate 
has to be assumed in order to extrapolate degree-days from the base station to the appropriate 
mean hypsometric elevation. 

Air temperature expressed in degree-days is used in SRM as an index of the complex energy 
balance leading to snowmelt. At stations where hourly readings are made, the number of degree- 
days for each 24-hour period is determined by summing the hourly temperatures and dividing by 
24 and using 0°C as the base temperature. Where only maximum and minimum temperatures 
available, the number of degree-days (in°C) is determined as 

T + T • 

'j’ = max ^ ^min 

The degree-day figures refer to the 24-hour period starting at 0600 hours with the corresponding 
discharge referring to periods shifted according to the time lag of the basin. As indicated by 
Linsley, et al. (Reference 7), all negative differences in the degree-day values in Equation (3) are 
taken as zero. 

There are several methods for dealing with the actual temperatures used in calculating the degree- 
day value. When using the max— min approach, the most common way is to use the temperatures 
as they are recorded and calculate the average daily temperature. Garstka, et al. (Reference 8), 
however, indicate that in many parts of the mountainous western United States the fluctuation of 


7 






temperatures, especially the depression of the minimum, is very large so that the average temper- 
ature will many times turn out to be below 0°C indicating no degree-days. Even so, during part 
of the day snowmelt conditions may have prevailed due to temperatures reaching as high as 10— 
15°C. In order to counteract this problem, an effective minimum temperature approach can be 
used. In essence, whenever <0°C it becomes = 0°C before being entered into 
Equation (3). It appears that this approach gives a better representation of the heat factor for use 
in snowmelt-runoff studies (Reference 8). Treating minimum temperatures below the freezing 
point as 0°C can also be employed when using hourly temperatures to calculate the degree-days. 
If all hourly temperatures of both T and are below 0°C, however, then the degree-days 
are taken as zero. It is recommended to use the effective minimum temperature approach for 
calculating degree-days for use in SRM. The model and computer program can also accept the 
average temperature approach, however, if the user feels that it better represents the snowmelt 
conditions in a given basin. 

The degree-days are extrapolated to an elevation zone by using a suitable lapse rate, 5, and the 
following equation. 


AT= 5 (hg-r -h) 


( 4 ) 


where 


AT = temperature lapse rate correction factor in °C 
5 = temperature lapse rate in °C per 100 m 

hg-p = altitude of the temperature station m m 
h = zonal hypsometric mean elevation in m 


The temperature lapse rate must be carefully determined, especially if the observation station is 
situated at a low altitude and the extrapolation of degree-days is made in only one direction 
(upwards). The lapse rate should be indicative of the mountainous region where the basin is 
located based on some kind of prior climatic knowledge. As the snowmelt season progresses, 
lapse rates may change depending on the basin. Such changes can be instituted every 15 days in 
SRM, if necessary. When applying SRM it is advisable to conduct a regional analysis of monthly 
lapse rates to determine the seasonal variation. In some cases it may be necessary to modify the 
mean monthly lapse rates obtained in such an analysis because of basin peculiarities (such as 
frequent temperature inversions) or an abnormal climatic progression in a particular year. In 
basins with little seasonal variation, a lapse rate of 0.65°C/100m has been found to be adequate. 


Precipitation 

It is even more difficult to obtain adequate precipitation data for a mountain basin than to obtain 
temperature data. The extrapolation of precipitation amounts from one or more base stations to 
zones in the basin must be done based on user knowledge of the study area. Location of a pre- 
cipitation station at the mean hypsometric elevation would be the optimum situation. 

If precipitation is determined to fall in the basin on a given day, a critical temperature, T^Ri-p, 
must be examined to determine whether the precipitation is rain or snow. T^ ru is usually selected 
to be slightly above the freezing point and may vary from basin to basin. The distinction between 
rain and snow is important in SRM because the rain, contribution to runoff is on the same day 
that the rain occurs, whereas the snow contribution to runoff is delayed. 
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When the precipitation is determined to be snow, its delayed effect on runoff is treated differently 
depending on whether it falls over the snow-covered or snow-free portion of the basin. The new 
snow that falls over the previously snow-covered area is assumed to become part of the seasonal 
snowpack and its effect is included in the normal depletion curve of the snow coverage. The new 
snow falling over the snow-free area is considered as precipitation to be added to snowmelt, with 
this effect delayed until the next warm day. This precipitation is stored by SRM and then melted 
as soon as a sufficient number of degree-days has occurred. This may take place on the first day 
warm enough to produce snowmelt or on a series of days. The following example in Table 1 
illustrates a case where 2.20 cm water equivalent of snow fell on day n and then was melted on 
the three successive days. 


Table 1 . Calculation of the melt of new snow deposited on a snow-free area 
(P„-2.20 cm;TcRix=+1.0°C) 


Day 

a 

(cm*°C“^ *d“^ ) 

T 

CC • d) 

S 

P 

(cm) 

Melted 
Depth 
a • T(cm) 

P 

Stored 

(cm) 

P contributing 
to Runoff 
« • T- (1-S)(e„) 

n 

0.45 

0 

0.72 

2.20 

0 

2.20 

0 

n+1 

0.45 

0.11 

0,70 

0 

0.05 

2.15 

0.02 

n+2 

0.45 

2.70 

0.68 

0 

1.22 

0.93 

0.39 

n+3 

0.45 

3.70 

0.66 

0 

0.93 

0 

0.32 


In this example, S is decreasing on consecutive days because it is interpolated previously from the 
snow-cover depletion curve. In reality it should remain constant as long as the seasonal snowpack 
is covered with new snow, however, the model currently uses the incremental decrease of S shown 
in Table 1 . 

When the precipitation is determined to be rain, and it falls on a snow-free area, it becomes 
available to contribute to runoff immediately. When rain falls on snow, however, its effect on 
runoff depends upon the condition of the snowpack. Early in the snowmelt season rain falling on 
the snowpack is assumed to be retained by the snow, which is mostly dry and usually deep. This 
rainfall is not available for runoff. At some stage during snowmelt the snowpack is assumed to be 
ripe (the user must decide when), and any rain falling on the snow is transferred through the 
snow layer and becomes available to contribute to runoff the same as over the snow-free area. 
Both of these options are included in the computer program. In SRM the melting effect of rain- 
fall is neglected. 

SnoiA/ Coverage 

The snow-cover variable, S, of a zone or basin is usually obtained from a depletion curve for input 
into SRM. A variety of sources of snow-cover data can be used to compile the depletion curves 
including ground observations (used for Modry Dul), aircraft photography (Dischma), and satellite 
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imagery (all the large basins). If the data are available, it is recommended that satellite imagery be 
used since it is the easiest to analyze and also quite accurate depending on basin size (area mini- 
mums for various satellites: Landsat-lOkm^ ; NOAA-VHRR-200km2 ; and GOES-1 OOOkm^). 

To assist in the use of satellite imagery for snow-cover interpretations, a handbook of analysis 
techniques is available (Reference 9). Additional information on snow-cover interpretation 
techniques for Europe is given in Reference 10. 

Photointerpretation of satellite snow images is used to delineate the snow line on a base map of 
the study basin (see Figure 2), and the area enclosed by the snow line in each elevation zone is 
planimetered to obtain the snow-covered area. The snow cover by elevation zone is then plotted 
against elapsed time to construct depletion curves such as those shown in Figure 4 for 1976 in 
the South Fork basin. For the snowmelt-runoff simulation, daily snow-cover values are taken 
from the depletion curves and input to SRM. 

Snowstorms occurring during the snowmelt season can result in a temporary increase of snow cover, 
but generally with no significant hydrologic effect. The duration of this increase is usually shorter 
than the interval between snow-cover observations. If the snowstorm occurs shortly before the 



Figure 4. Landsat-derived snow-cover depletion curves for the South Fork of the Rio Grande 
basin for elevation zones. A, B, and C for 1976. Landsat snow-cover observations are plotted. 


11 


snow-cover observation, however, it may lead to the interpretation of exaggerated snow-covered 
areas and a distortion of the true depletion curves of the seasonal snowpack. It is recommended 
that such anomalous snow-cover values be disregarded and that the depletion curves be drawn 
only with reference to the snow cover accumulated before the beginning of the snowmelt period 
(seasonal or “old” snowpack), as illustrated in Figure 5. Precipitation and temperature records 
should be consulted in order to identify these transitory, snow events when drawing the depletion 
curves. The transitory new snow is accounted for as stored precipitation eventually contributing 
to runoff as explained in the previous section. 

In rare cases massive summer snowstorms can affect the snow coverage for several weeks. If such a 
situation is revealed by subsequent satellite data, it may be preferable to draw the depletion curves 

— DEPLETION CURVES OF THE 
SEASONAL SNOW COVER 

DEPLETION CURVES DISTORTED 

BY INCLUSION OF 19 JUNE NEW 
SNOW IN ANALYSIS 


ESTIMATED ACTUAL SNOW 

LANDSAT 19 JUNE COVERAGE ON 17-21 JUNE 



Figure 5. Seasonal and distorted depletion curves of snow coverage in the Dinwoody Creek basin, 
Wyoming, U.S.A. for elevation zones A, B, C, and D. A snow storm of 17— 18 June 
deposited several cm water equivalent of new snow preceding the Landsat overpass of 
19 June. The new snow in zones B and C was melted in 2—3 days. 


12 



according to this actual snow coverage. Because of this modification to the depletion curves, the 
model will melt more seasonal snow than before, but the amount of stored or new precipitation 
will be automatically reduced. 

If runoff forecasts at the beginning of snowmelt are desired, a new approach must be used because 
the actual snow-cover depletion curves are not available, and in many cases, the snow-cover extent 
does not differ greatly between a dry and a wet year. The South Fork basin (559 km^) in Colorado 
was studied as an example. Although the runoff in the snowmelt season of 1979 was six times 
greater than it was in the drought year of 1977, there was little difference m the snow-cover ex- 
tent of the upper elevation zones of the South Fork basin on 1 April. To provide a means for 
forecasting runoff, it is suggested that the depletion curves that normally relate the areal extent of 
the snow cover to elapsed time be modified to relate the snow coverage to the accumulated degree- 
days (Reference 11). This procedure is discussed in more detail in the chapter on Operation of 
the Model for Real-Time Forecasts. 

Parameters 

Runoff Coefficient 

The average value of the runoff coefficient, c, for a basin for a year is given by the ratio of annual 
runoff/annual precipitation. It should be pointed out that because of a measurement catch deficit, 
rain gauges frequently underestimate winter precipitation (snow) in mountain basins. As a result, 
artifically elevated values of c may be calculated. In such a case, a synthesis of data from repre- 
sentative basins should provide guidance for assessing c in the absence of reliable, direct measure- 
ments. 

Because the runoff coefficient is likely to vary throughout the year as a result of changing veget- 
ation and soil moisture conditions, the SRM computer program permits changes in c every 1 5 days. 
Usually, c is higher for snowmelt than for rainfall. Therefore, the model can handle different run- 
off coefficients for snow, Cg, and for rain, Cj^, as determined by the user. In basins studied, when 
snowmelt is concentrated in a short time penod, Cq can approach 1.0. With prolonged snowmelt 
runoff in a semiarid region, Cg may go down to 0.3. In addition c will vary from zone to zone in 
a basin, and SRM has the capability to handle different c values by zonal input. It is possible that 
with rain falling in the low elevations of a semiarid basin, c^^ may be 0.2, whereas at the same 
time in the high elevations with snow still melting, Cg can be 0.9. The selection of c requires first 
hand knowledge of the basin and its hydrologic behavior under different hydrometeorological 
conditions. 

Degree-Day Factor 

The degree-day approach is used as an index of the energy balance and the degree-day factor, a, is 
used to convert degree-days to snowmelt expressed in depth of water. The degree-day factor is 
variable throughout the melt period because the changing properties of snow influence the melting 
process. It is possible to measure the degree-day factor at a point using temperature measurements 
and a snow pressure pillow or lysimeter. The simultaneously accumulated degree-days and melt at 
a pressure pillow can be compared to calculate the degree-day factor for different times during the 
snowmelt season. Daily values are extremely variable so it is recommended to use a minimum of 
3-5 days for averaging the degree-day factor. In addition, point measurements cannot be easily 
extrapolated to large areas. The point measurements can be used for information and then weighted 
depending on how well a specific station represents the hydrologic characteristics of a given zone 
(Reference 12). 
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In the absence of detailed data, the degree-day factor can be obtained from an empirical relation 
developed by Martinec (Reference 13): 

a = 1.1 ^ (5) 

Pw 

where a - the degree-day factor in cm • d“^ 

pg = density of snow 
p^ = density of water 

The general seasonal increase in p^ can be used as an index of the seasonal increase of a . Large 
variations are expected if the melt season is long or there is a large difference in elevation in the 
basin. For Dinwoody Creek in Wyoming, a was gradually increased from 0.35 on 1 April to 0.60 
on 30 September in the highest elevation zone (Reference 2). 

A wide range of a values has been reported in the literature with a generally increasing as the snow- 
pack ripens. There have been extreme values as low as 0.07 cm • • d“^ and as high as 0.92 

cm • °C“1 • d"l reported (Reference 14), however, during the snowmelt season for undisturbed 
snow, the range is about 0.25 — 0.60 cm • • d~l . The fact that increasing a is related to 

increasing snow density as snowmelt progresses is in response to a number of factors. A greater 
density is usually associated with older snow with a lower albedo, thus a higher a value. In addition, 
high densities toward the end of the snowmelt season are also associated with increased liquid 
water content and low thermal quality of the snow. Because of these expected seasonal changes 
in a , SRM is structured to allow modifications of a every 1 5 days, if necessary. Because of different 
stages of snowpack ripening in different elevation zones, a can also be varied between zones. 
Sometimes the occurrence of a large, late season snowfall will produce depressed a values for 
several days due to the new low-density snow. The a values in the model can manually be modified 
and inserted to reflect these unusual snowmelt conditions. 

Recession Coefficient 

The recession coefficient, k, depends upon the current discharge in the following way: 

^n+l = (6) 


where Q is the daily discharge and the constants x and y must be determined for the given basin. 
For this determination, daily discharge values for the snowmelt season or the whole year are used. 
The discharge on a given day, Q^is always plotted against the value on the following day, , 
as illustrated in Figure 6 for the Dischma basin in Switzerland. In Figure 6 any points above the 
1 to 1 line refer to the rise of the hydrograph and the points below the line to the fall of the 
hydrograph. For purposes of this model and derivation of the recession equation, only points 
below the 1 to 1 line need to be plotted. Once these points have been plotted, an envelope line as 
shown in Figure 6 can be drawn to enclose most of the points. The lower envelope line represents 
the extreme discharge decline, i.e., the recession without any partial delay by possible precipitation 
or snowmelt. It is not recommended, however, to include all points inside this envelope at any cost, 
especially in the lower range of discharges. The reason for this is that some discharge values may be 
affected by non-typical phenomena such as icing conditions in the winter or the timing of rainfall 
which in a particular storm results in an abrupt decrease of discharge from one day to the next. 
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Figure 6. Recession flow plot, vs for the Dischma basin in Switzerland with the 

lower envelope line drawn. 


This lower envelope curve has been found to be valid on small size basins. When the model is 
applied to larger basins, however, it is recommended that the lower envelope curve be replaced 
with an average curve halfway between the lower envelope line and the 1 to 1 line. An average 
curve would also result from a least squares fit to the points, although the extra effort may not be 
justified. The average curve should probably be used on basins greater than about 50 km^. For 
year-round simulations, it was found useful to derive the constants x and y for Equation (6) 
separately for the summer and winter half year. 

For the Dischma basin (43.3 km^) the lower envelope curve is shown in Figure 6. The constants 
X and y needed in the recession equation are computed by reading off a pair of recession co- 
efficients (kj , k 2 ) from Figure 6 corresponding to discharges Qj and Q 2 and by solving the 
following equations: 
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kj = X • Qjy 

C7) 

k2 = X • Q2^ 

(8) 

logkj = logx+ ylogQj 

(9) 

log k 2 = log X + y log Q 2 

(10) 

If the discharge range allows selection of Qj = 1.0 m^sec“^ and Q 2 = 

10.0 m^sec"^ the solution 


is simplified and Equations (9) and (10) become: 

logkj = logx 

X = kj 

log k2 = log X + y 

y = log k 2 ~ logkj 

For the Dischma basin in Figure 6, 

kj = 0.85 (for Qj = l.Om^sec"^) 
k 2 = 0.697 (for Q 2 = 10.0 m^sec"^) 

X = 0.85 

y = log 0.697 - log 0.85 = - 0.086 

The recession equation for Dischma using the lower envelope curve thus becomes 

k„ = (II) 

For comparison of the recession equations of some of the previously studied basins, Figure 7 shows 
the plots and equations for five selected basins. 

If no discharge data are available for a basin, recession coefficients can be estimated using the 
following formula (Reference 15): 


kB2 = ka/'^AiTTAiJ 


( 12 ) 


where Agj and Ag 2 are the respective areas of the basins B1 and B2 and kgj and kg 2 are the 
recession coefficients for the corresponding runoff conditions, e.g., the average discharge, in both 
basins. If the constants x and y are known in basin B 1 , it follows that for basin B2 : 


^B2n 


L 


/Qbi ^ 

B1 QB2n-l^ 


yfii 


^ Abi/Ab2 


(13) 
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Figure 7. Relation of k and Q for basins of various sizes. 

For example, if x = 0.85 and y = - 0.086 have been derived for the Dischma basin, a relation for the 
Kings River basin is obtained by substituting QdisCHM A “ ^ m^sec'l ^ Qkings ~ 6 1 .3 m^sec ^ , 
Aj)ischma ^ 43.3 km2, and AkingS = 4000 km2 into Equation (13). 
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1 - fn oc 1 ^- 0.086 ~| 0.3226 

1cb 2„ - (0.85 • 1.36 QB2n-lJ 

1 . - fi 1 c r. -0.0861 0.3226 

kB2n - L‘ *5QB2n-lJ 


k„ = 1.046 Q (14) 

Equation (14) is the recession equation for the Kings River basin using the lower envelope curve as 
derived by the size relationship of Equation (12). Because of the size of the Kings River basin, 
further analysis is needed to yield the recommended average curve for the type of plot shown in 
Figure 6. 

Using this approach, SRM could be used to simulate discharge in ungauged basins. The equation 
for the recession coefficient of an ungauged basin could be obtained from utilization of Equation 
(12) and the recession data from an already studied basin. The simulation would start on the 
first day of the snowmelt period by substituting a value for Qq corresponding to the winter base- 
flow into Equation (6) to calculate kj . The winter baseflow value may be estimated by analogy 
with another basin or by measuring the discharge. Then kj and Qq are substituted into Equation 
(1) to calculate Qj . Once the computation has started, subsequent k values are determined each 
day from Equation (6) by substituting computed values of Q. 

Time Lag 

Equations (1 ) and (2) correspond to the most simple case of a time lag of 18 hours. In this case, 
the temperature rise at 06:00 hrs results in the rise of the hydrograph at 24:00 hrs. Therefore, 
degree-days determined for a certain day with a minimum at 06:00 hrs and a maximum at about 
14:00 hrs correspond to a discharge starting at 00:00 hrs the next day (see Figure 8). If the time 
lag is not conveniently 18 hours, the computed discharge values may have to be shifted by a 
certain number of hours to facilitate comparison with published streamflow data. Examples of 
such shifts are presented in the following. 

If the time lag is 6 hours, degree-days for the nth day result in a discharge starting at 12:00 hrs 
on the same day and ending at 12:00 hrs on day n+1 as shown in Figure 8. The next day’s 
discharge (Qn-n ) is composed of about one half of the calculated input from day n and one half 
from day n+1 . In the simple case of one elevation zone the equation for i would be: 

Qn+l = (T„+AT„)S„+2P„1 + 

0.5 Cn+] [a„+i (Tn+l j 

Qn ^n+ 1 
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Figure 8. Daily fluctuations of temperature and discharge illustrating lag times 

of 6 and 1 8 hours. 


In contrast to the snowmelt, the total amount of precipitation on the first day, and no pre- 
cipitation from the second day, Pn+1 ’ included in the calculation of Q^+i • Generally refers 
to precipitation recorded between 08:00 hrs (day n) to 08:00 hrs (day n+1), and, with the time 
lag of 6 hours, it roughly corresponds to j . 

In large basins with multiple elevation zones, the time lag changes during the snowmelt season as 
a result of the changing spatial distribution of the snow cover with respect to the basin outlet. The 
ratio of inputs (or time lag correction factors) from the n and n+1 days used in Equation (6) 
would have to be changed accordingly, not only to account for different time lags for each zone, 
but also for how they change from the beginning to the end of the snowmelt season. 

In order to obtain a more accurate split of the runoff from days n and n+1 , Shafer, et al 
(Reference 1 2) recommend planimetering of the areas under the actual daily hydrographs to come 
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Figure 9. Planimetered hydrographs for determination of the time lag correction factors 
= 0.7, = 0.3) for the South Fork basin in Colorado (from Reference 12). 


up with the appropriate time lag correction factors (L) as shown in Figure 9. For some of the 
time lags encountered so far, the following L values may be utilized for determining the contri- 
butions to Qj^+ 1 ; 

6 hours — Ljj = 0.5, = 0.5; 10 hours — = 0.7, = 0.3; 

12 hours — Ljj = 0.75, = 0.25; 15 hours — == 0.8, = 0.2; 

18 hours — Ljj = 1.0, = 0.0. 

ASSESSMENT OF SIMULATION ACCURACY 


One of the first steps to be followed in determining how well a model simulates actual flow con- 
ditions is a comparison plot of computed and measured hydrographs. Figure 10 illustrates this 
comparison for the South Fork basin in Colorado for the 1979 snowmelt season. In order to 
quantify the comparison, several goodness-of-fit measures may be added to the hydrograph plot. 
The computer program automatically calculates the percentage volume difference (Dy) between 
the measured (ROj^) and model-computed (RO^^) seasonal runoff as shown in Equation ( 1 6). 


Dy = 


RO 


M 


RO, 




100 


(16) 
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Figure 10. Simulated versus measured streamflow for the South Fork of the Rio Grande during the snowmelt season of 1979. 
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Model performance on a daily basis can be evaluated using the nondimensional Nash-Sutcliffe 
(Reference 16) value: 


where 


r2 = 1 - 


I (q.-q)2 

1-1 1 


( 17 ) 


R^ is a measure of model efficiency 
= observed daily discharge 
- simulated daily discharge 
q = mean of observed discharge 
n = number of daily discharge values. 


The Nash-Sutcliffe R^ value is analogous to the coefficient of determination and is a direct measure 
of the proportion of the variance of the recorded flows explained by the model (Reference 17). 
The SRM program also calculates and outputs this goodness-of-fit parameter to facilitate 
comparison of the correspondence of the daily flow values. Further examples of runoff simulation 
during snowmelt are given in Figures 1 1 and 12. Figure 13 shows a simulation extended to a whole 
year. 



n 



Figure 1 1 . Snowmelt-runoff simulation for the basin Modry Dfil (2.65 km^), Czechoslovakia. 
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Figure 12. Snowmelt-runoff simulation for the Kings River basin (4000 km^) in 

California, U.S.A. for 1975. 

When running the model in the simulation mode, if a good agreement is not achieved initially, the 
following order of items to check in problem solving is recommended: 

1. Re-evaluate the snow cover depletion curves to check that errors were not made 
in drawing the curves. This could result in a too high or too low computed runoff. 

One especially common error is the overlooking of a precipitation event occurring 
just before a satellite pass. The thin layer of transient snow cover that results 
causes an over estimation of the seasonal snow cover, S, which causes the depletion 
curve to be too high. 

2. Reconsider the lapse rate used in the basin. Often times an average lapse rate may 
be too high or too low for a particular month resulting in the number of degree- 
days being too high or too low (especially for the upper elevations of the basin). 

3. The runoff coefficient may require adjustment if the computed discharge is too 
high or too low. Typically, the runoff coefficient is the most difficult of the 
basin parameters to estimate accurately and should be examined closely after 
any gross errors due to discrepancies in snow cover and lapse rate have been 
ruled out. 

4. The degree-day factor should be investigated after the runoff coefficient. Since 
the degree-day factor can be estimated initially from snow density measurements, 
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Figure 13. Simulated versus measured streamflow for the Dischma basin (43.3 km^) 
for April 1974 — March 1975 (365 days). 

less probability of error may be expected. If, however, good snow density 
values are not available, adjustment of the degree-day factor may be necessary 
to have some effect on the runoff volume. Unusually high wind conditions 
may also result in the need to temporarily increase the degree-day factor, 
whereas new snow falling on the seasonal snowpack may cause a temporary 
decrease in the degree-day factor. 

5. Discrepancies in precipitation input to SRM may result in two kinds of error. 
Precipitation values that are too high or low may result in similar effects on 
computed runoff. More importantly, peak flows may be missed altogether 
if precipitation stations in the basin are not properly measuring local rainfall 
variations, especially in summer. Rainfall data from nearby stations and 
corrections for gauge catch deficit may have to be considered to improve the 
quality of data. 

6. The recession coefficient should be revised if the model reacts too quickly or 
too slowly in comparison with the actual hydrograph. If the computed 
hydrograph generally rises or drops too rapidly, recession coefficients are 
too low, probably as a result of including non representative points in 
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evaluating Equation (6) (Figure 6). Consideration should be given to which 
points to include when drawing the line. In addition, if the lower envelope 
curve is being used, other curves such as the average or even the three- 
quarters line should be tested as alternatives. On the other hand, if the 
hydrograph rises or drops too slowly the recession coefficients are too 
high. This usually results from insufficient data available for high flows 
when deriving Equation (6). 

7. Discrepancies in the timing of flow peaks and valleys can be due to an 
incorrectly determined time lag. Re-evaluation of the time lag is called 
for with special consideration given to a seasonal change in the discharge 
time lag as the snow cover retreats to higher elevations futher from the 
stream late in the snowmelt season. The model is setup to handle 
seasonal variations in the time lag. 

OPERATION OF THE MODEL FOR REAL-TIME FORECASTS 

A few modifications of the model are necessary to operate it in the forecast mode as opposed to 
operation in the simulation mode. Most important is acquisition of forecasts of the major input 
variables — temperature, precipitation, and snow cover — during the forecast period. The most 
difficult of these variables to forecast is precipitation. Generally, average daily values of precipi- 
tation or selected historical time series will have to be used. Temperature forecasts can be 
obtained for several days to one or two weeks. For longer durations, average values should be used 
and should be as good as forecasted values. The temperature forecasts are doubly important 
because of the effect of the temperature on the depletion of the snow cover. 

The use of snow-cover depletion curves from prior years is not possible because the curves vary 
from year to year, and the actual curve for a given year is not known at the beginning of the snow- 
melt season. In order to forecast the snow-cover depletion, it is first necessary to modify the 
depletion curves by relating the snow coverage to accumulated degree-days instead of elapsed 
time. 

When using standard depletion curves, which relate the precent of the basin or zone covered by 
snow to elapsed time during the snowmelt season, it isn’t possible to detect extreme high or low 
accumulations of snow. In addition, a steep decrease of the snow-covered area in the standard 
depletion curve can reflect either a shallow snowpack or high melt rates. Conversely, a slow 
decrease results from either a deep snow cover or slow melt rates resulting from low temperatures. 
Such uncertainty can be eliminated using modified depletion curves that relate the snow- 
covered area to the accumulated number of degree-days. 

Figure 14, 15, and 16 show such modified depletion curves derived for the years 1976, 1977, and 
1979 for each elevation zone of the South Fork basin in Colorado. It is immediately evident 
that the same incremental number of degree-days results in a greater decrease in snow cover in 
1977 than in 1979 as a result of the much below normal 1977 snowpack. Resulting runoff for 
the year 1976 falls between the high runoff year of 1979 and the record drought year of 1977 
as do the modified depletion curves for 1976 in Figures 14, 15, and 16. In a future year, if a 
modified depletion curve in the first month of the snowmelt season takes a course similar to that 
of 1977, a small snow accumulation like 1977 is indicated. Similarly, large accumulations like 
1979 and intermediate snow amounts like 1976 can be estimated from the course of the modified 
depletion curves in the initial stage of the snowmelt season. Note, however, that this technique for 
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Figure 14. Depletion curves of snow coverage versus accumulated degree-days in 
elevation zone A of the South Fork basin in the years 1976, 1977, and 1979. 



Figure 15. Depletion curves of snow coverage versus accumulated degree-days in 
elevation zone B of the South Fork basin in the years 1976, 1977, and 1979. 
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Figure 16. Depletion curves of snovv^ coverage versus accumulated degree-days in 
elevation zone C of the South Fork basin in the years 1976, 1977 and 1979. 

estimating relative snow accumulations is only valid for comparable precipitation amounts oc- 
curring during the snowmelt period. For example, exceptional spring and summer snowfalls can 
slow down the decrease of snow coverage even with a shallow initial snowpack. 

To demonstrate the application of the method for operational purposes, assume that a forecast of 
the seasonal runoff volume is required on 1 April. The zonal snow-cover depletion curves for the 
snowmelt season are not yet known. As a result, an average snow accumulation must be assumed, 
and the corresponding modified depletion curves must be chosen. If conventional or auto- 
matically measured snow water equivalent values are available for the basin, a better estimate of 
the snow accumulation may be possible. In this case, a better choice of the appropriate modified 
depletion curve should result. After several weeks, the first evaluations of snow-covered area 
from satellite images can be related to the accumulated degree-days to determine whether the 
decrease of snow-covered area agrees with the initially chosen modified depletion curve. If the 
comparison is close, the snowmelt-model comparisons are continued until the disappearance of 
snow and the seasonal runoff volume is obtained as a total of the calculated daily flows. For these 
seasonal forecasts, the long-term average temperature for each day until the snow disappears can 
be used for the determination of the degree-day values. A further refinement would be the fore- 
casting of short-term snowmelt runoff. This type of improvement would require the daily fore- 
casts of temperature during the forecast period as previously mentioned. 

If the decrease of snow-covered area has not occurred at the rate initially assumed on 1 April, e.g., 
it is considerably slower than indicated by the assumed modified depletion curve, a greater accum- 
ulation of snow for the basin is indicated. Consequently, the initial modified depletion curve is 
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rejected, and an updated forecast of the runoff volume is made by using the curve valid for a 
large accumulation of snow. The better the original estimate of snow accumulation, the less the 
original seasonal forecast will have to be modified. When several years of snow accumulation, 
satellite snow cover, and snowmelt-runoff data are available, a nomograph of modified depletion 
curves will be possible, with the appropriate depletion curve chosen by average snow water 
equivalent rather than similarity to some prior year as shown in Figure 17. 

Figure 1 8 shows a modified depletion curve on the left that has hypothetically been selected based 
on the best knowledge available from snow accumulation data. If a discharge forecast is to be 
issued, for example, on May 1 5 for the following week, the depletion curve is extrapolated as 
follows. The snow coverage is, as shown in Figure 18, 80%. If 30 degree-days are forecasted for 
the next week, a drop in snow cover to 40% results, and the “normal” depletion curve is extrap- 
olated as shown on the right side of Figure 1 8. Forecasted temperatures and extrapolated snow- 
covered areas are used to compute the meltwater production. If the forecast gives temperatures 
below the freezing point, the snow coverage will remain at 80% and no snowmelt will result. 

In an operational situation, it is not necessary to continuously run the model with calculated 
streamflow as input data. SRM has the provision which allows updating with actual streamflow 
information every seven days. The use of real data for such updates will improve the accuracy of 
the forecasts. 

Figure 19a shows a model runoff simulation for the Dinwoody Creek basin in Wyoming that had a 
measured discharge twice as high as the computed value on August 1. Updating the model with 
the actual discharge on August 1 improves the simulation as shown in Figure 1 9b. Even without 
updating, however, the initial discrepancy is soon ehminated automatically. This self-adjusting 
feature depends on careful assessment of Equation (6). 



Figure 17. Nomograph for selection of modified depletion curve in zone B of the South 
Fork basin using estimated snow water equivalent (in cm) as the criterion. 
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Figure 1 8. Graphical extrapolation of depletion curves of snow coverage using forecasted 

degree-days. 


NECESSARY COMPUTING FACILITIES 

For use of SRM in situations where manpower is not limited but computing resources may be, any 
pocket calculator with the function xY is sufficient for day-to-day computation of the discharge. 
The pocket calculator can also be used in the same way for limited day-to-day forecasts of dis- 
charge. In addition, in the initial stages of setting up the computer program to run SRM, the 
pocket calculator can be indispensible in the checking of computations. The fact that the basic 
form of SRM (Equation 1 ) is relatively simple, which permits use of the now widely available 
pocket calculator, also opens the possibility that the model may be run in the field or at local 
offices as opposed to only at central computing facilities. Such flexibility increases the chances 
that SRM can be used in operational situations. 

In utilizing the model, it is naturally more convenient to use a computer program (and a computer), 
an example of which is described in the following section. The use of the computer approach pro- 
vides a great savings in time which is especially important for calculations of extended periods, such 
as the snowmelt runoff season or even a year. In addition, the computer program can easily handle 
many complicated calculations which become extremely tedious on a pocket calculator. Examples 
of this involve the different handling of precipitation depending on the form (rain vs. snow), the 
introduction of different time lags for different elevation zones, and the use of multiple climatic 
stations. 
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Figure 19. Discharge simulation in the Dinwoody Creek basin a) without updating and 
b) with updating with actual discharge on 1 August. 

SRM is more flexible in its applications when the computerized approach is used. Several computer 
runs may be made in a short time period in order to demonstrate the effect of hypothetical changes 
of temperature on the resulting runoff in any desired number of variations. 

In general, however, SRM does not require numerous runs because calibration is not necessary. The 
ease with which computer runs for various sets of parameters can be obtained should not lead to a 
replacement of the deterministic approach of the model by a “try and see” philosophy. The model 
is designed to operate with physically-based estimates of basin parameters which should not require 
much change after their initial selection. Inclusion of a self-calibrating routine might improve the 
accuracy of simulations, however, it would limit the use of the model to basins with historical data 
necessary for such optimizing. Also it would deprive the user of the possibility to detect errors in 
data sets. 

The SRM computer program presented in this manual has been designed to operate on an IBM 3081 
available at Goddard Space Flight Center (GSFC). However, the SRM program can execute on any 
32-bit IBM computer using FORTRAN IV. The program can run on any minicomputer that utilizes 
FORTRAN IV with the NAMELIST feature, with minimum revisions (such as variable type dec- 
larations). Some versions of FORTRAN on some computers do not support the NAMELIST input 
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of data, particularly the DEC PDP FORTRAN or PDP FORTRAN-FOUR-PLUS. Consequently, 
major revisions would have to be made in subroutine READIN to read input data as formatted 
input. No changes, however, would have to be made in the program computations. 

Some computers may have peripheral output devices that are not in 132-character length. If so, 
then some modifications would have to be made in the formatting of output data. Since formatting 
of output data is provided as an option in the program, the user may not want to exercise that 
option and simply print out the statistics (such as goodness of fit, etc.). 

In order to execute the program on much smaller computers, such as microprocessors where exe- 
cution time and core storage is limited, some major modifications would have to be made. All 
formatted output options can be eliminated, except for output statistics. The number of elevation 
zones can be cut down to reduce the size of the input arrays. The capability to process input 
temperatures can be eliminated, thus eliminating some input arrays. The user would have to pro- 
vide input temperatures in degree-days and per zone, or at least provide a pre-determined lapse 
rate to extrapolate temperatures in degree-days to each elevation zone. 

Presently, the SRM program can be run for a snowmelt season of variable length, and it can also be 
operated in both snowmelt and non-snowmelt situations for up to 366 days. Up to eight basin 
elevation zones can be accommodated. For a six-month snowmelt season, the computer require- 
ments to execute the program on the GSFC IBM 3081 are as follows: CPU time = 3 sec.; I/O time = 
35.4 sec. Total core requirements for compilation, linkage and loading of input data sets, producing 
printer plots and input temperature processing amount to approximately 170 K bytes of core. 

COMPUTER PROGRAM 

The SRM program has been implemented on the IBM 3081 at NASA’s Goddard Space Flight Center 
in Greenbelt, Maryland and written in the FORTRAN IV language. The general block diagram for 
the SRM computer program is shown in Figure 20. A more detailed functional flow diagram is 
shown in Figure 21 with indications of inputs required, computations, and output products. The 
detailed program flow chart used in writing the program is shown in Appendix A. The FORTRAN 
IV source listing for the SRM program and compilation on the IBM 3081 at Goddard Space Flight 
Center is shown in Appendix B. 

The SRM program can be executed using a batch job stream submitted via cards or via a cathode 
ray tube (CRT) terminal depending on the computer system configuration available as shown in 
Figure 22. If the user system maintains a time sharing system like the Time Sharing Option (TSO) 
on the IBM 3081, the user can interactively modify input parameters via a CRT provided the 
NAMELIST data can be stored on permanent disk files. If only batch job processing via cards is 
available, the user can manually modify the input card deck. 

User control of output from the SRM program is by input program options. Plots of actual and 
predicted stream runoff are available as an option provided the FORTRAN PRPLOT software 
supplied in Appendix B is compiled with the SRM program and the user system facilities are 
capable of producing printer plots. All input data may be reproduced as output during each 
computer run as an option. Statistical parameters such as the Nash-Sutcliffe goodness-of-flt 
measure and percent seasonal differences are output automatically, provided that actual streamflow 
data are available. 
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Figure 20. Functional flow chart of the snowmelt-runoff model computer program. 
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Figure 21a. Process-oriented flow chart of the computer program (reference 2.0 Collect Input Data in Figure 20). 
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Figure 21b. Process-oriented flow chart of the computer program (reference 3.0 Process Temperatures by Lapse Rate 

in Figure 20). 
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Figure 21c. Process-oriented flow chart of the computer program (reference 4.0 Process Precipitation in Figure 20). 
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Figure 2 Id. Process-oriented flow chart of the computer program (reference 5.0 Perform Model Calculations in Figure 20). 
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Figure 21 e. Process-oriented flow chart of the computer program (reference 6.0 Calculate Statistics and Output Data Products 

in Figure 20). 
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Figure 22. User perspective of snowmelt-runoff model program. 

Program Input Requirements 

In order to operate the SRM program, precipitation (PRECIP), temperature (T), and snow- 
covered area (S) must be evaluated on a daily basis (computer symbols for variables and param- 
eters may differ from prior formulation symbols but can usually be recognized by all upper 
case letters). At the beginning of each computer run, the length of the simulation period in 
number of days (ND) must be designated (from 1 to 366). If the basin has a large elevation 
range, the total area must be divided into elevation zones as indicated previously. The total 
number of elevation zones (NZ) and the area of each zone (AREA) must be input to the pro- 
gram. The program has the capability for handling a total of eight elevation zones, if necessary. 

Certain parameters for a specific basin must be evaluated for input to the model: 

1 . The adjustment by temperature lapse rate (AT in Equation 1 and DTLR in the 
computer program) determined every 15 days, if necessary, and for each eleva- 
tion zone. 

2. The degree day factors {a in Equation 1 and AN in the computer program) 
determined every 1 5 days. 

3. The runoff coefficients (c in Equation 1 and CS or CR in the computer program) 
determined every 1 5 days. 
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4. The recession coefficient factors (x and y in Equation (6) and X and Y in the 
computer program, respectively). The recession coefficient, k, changes daily 
because of the changing discharge, Q, however, the constants x and y are derived 
one time for the given basin. 

5. The percentage of the previous day’s snowmelt appearing as runoff at the stream- 
gage, PDR. 

Namelist Parameters 

Data to be input to SRM will be handled through the FORTRAN NAMELIST feature. The 
NAMELISTs GLIM and BASE provide climatological and basin dependent parameters, respectively, 
whereas the NAMELIST OPT provides program control options to properly execute the SRM 
program. Use of the NAMELIST feature results in some specific requirements: 

1 . Column 1 of each card image must be blank, 

2. In Column 2, the first card image must contain &CLIM, &BASE, or &OPT. 

3. Data items must be separated by a comma. 

4. The last item in the last card image must be &END. 

Despite these requirements NAMELIST input is easier for the user than formatted input because 
placement of data in specific card columns is not necessary. 

The NAMELIST CLIM contains climatological snowmelt-runoff parameters for a particular basin 
and is read in only once per snowmelt-runoff computer run. A description of each climatological 
NAMELIST parameter, including, type, symbol and units are provided in Table 2. Temperature 
(T) and precipitation (PRECIP) data are not required to be input by elevation zone but can be 
extrapolated to the elevation zone from the base station readings in the program. Snow-covered 
area (S) must be input by elevation zone. In order for the SRM program to operate correctly, 
daily temperature values must be in degree-days for each elevation zone. Temperatures may be 
input as measured average daily temperatures or as maximum (TMAX) and minimum (TMIN) 
values and, through application of the temperature lapse rate, be extrapolated to the appropriate 
elevation zone. Temperatures can also be input already calculated in degree-days where no 
extrapolation is necessary. All of the parameters in the climatological NAMELIST CLIM must be 
provided. If no actual streamflow data are available, the user should provide an estimated value 
for the ACTUAL parameter on day 1 of the snowmelt-runoff period. Figure 23 shows typical 
climatological NAMELIST input for a study basin in Switzerland. 

The NAMELIST BASE contains basin dependent SRM parameters and can be read in several times 
allowing the user the capability of making several computer runs without having to read in all of 
the climatological NAMELIST parameters. A description of each basin NAMELIST parameter 
including type, symbol and units are provided in Table 3 . In order to execute the SRM program 
certain minimal basin NAMELIST input is required. These parameters include: 

1 . Identifying Information 
BASIN, NZ, lYEAR 

2. Snowmelt-Runoff Model parameters 
AREA, X, Y, PDR, DTLR, AN, CS, CR, IPR 
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Table 2. Description of Variables in NAMELIST CLIM 


Variable 

Symbol* 

Type 

Units 

Metric English 

Description 

ND 

n 

1*4 

days 

days 

Number of snowmelt days 

T 

Tn 

R*4 

°C-day 

°F-day 

Temperature in degree-days 

S 

^zn 

R*4 

% 

% 

Snow-cover area in each zone ( 1 00% = 
1.0) 

ACTUAL 

Qn 

R*4 

3 -1 
m'^s ^ 


Actual stream runoff 

PRECIP 

— 

R*4 

cm 

in 

Precipitation at base station 

TMAX 

— 

R*4 

°C 

°F 

Maximum daily temperature 

TMIN 

— 

R*4 

°C 

°F 

Minimum daily temperature 

TCRIT 

^CRIT 

R*4 


°F 

Critical temperature to determine if 
precipitation is rain or snow. 


*Note: The subscript n refers to number of snowmelt days;zn refers to number of snowmelt days per zone. 
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Figure 23. Sample NAMELIST CLIM input for the Dischma basin, 1974. 
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THAX*-.2? .4? 1.3? 3.7? -2.0? -.7? -.9? -.3? 1.6? -1.0? 1.0? .7? 

3.0? 0.0? -7.2? -9.6? -9.0? -6.4? -6.3? -3.2? -4.4? -3.8? -.8? 
-4.8? -3.9? -3.0? -4.8? -.3? 0,0? -1.7? 

-1.1? -2.2? -2.0? ,7? -3,0? -3,7? -3.0? -.7? -1.0? -.6? -1.7? 

1.3? 6.8? 3.3? -.7? 2.8? 1.1? 4.2? 3.4? 2.6? 3.7? 2.9? -2.0? 
-2.3? -.6? 4.1* 3.2? 3.0? 4.4? 3.1? 4.7? 

3.0? 3.2? 8.7? 9.6? 10.3? 4.1? -.8? 1.3? 1.4? -1.8? -4.9? 

-4.1? -2.4? 4.4? 3.1? 6.2? 6.3? 2.4? 2.9? 3.4? 5. 3? 3.6? 3.7? 
3.0? 7.6? 3.3? 3.0? 2.8? 3.8? 3.3? 

8.2? 6.6? 6.7? 7.9? 9.6? 8.3? 3.2? 2.7? 8.0? 6.8? 10.3? 12.8? 

12.0? 9.7? 9.0? 10.3? 3,9? 1.3? -.3? -1.1? .9? 3.6? 8.2? 13.4? 
9.2? 11.0? 13.3? 13.3? 13.3? 14.2? 11.8? 

13.2? 11.3? 14.8? 14.6? 10.2? 11.8? 13.3? 10.6? 4.4? 6.2? 3.0? 

13.3? 16.6? 16.7? 17.3? 17.0? 13.0? 11. 7f 11.3? 14.7? 

8.0? 8.2? 6.8? 8.3? 4.4? 1.9? 9.0V 6.1? 8.3? 


3.9? 

9.7? 


8.5? 

8.3? 

8.4? 

4.3? 

12.1? 8.6? 

4.3? 

10.1? 

11.0? 

6.4? 

9.9? 

11.3? 

12.9? 

13.2? 

12.6? 11.3? 

10.1 ? 

10.2? 

10.1? 

3.0? 

9.1? 

4.0? 

2.0? 

0.2? 

-4.6? -4.8? 

2.0? 

2.4. 

-0.7? 

-2.4? 

-3.7? 

-6.4? 

-3.7? 

-3.1? 

-3.2? -3.2? 

-5.0? 

-4.8? 

-6.1? 

-4.8? 

-6.0? 

-3.9? 

'3.8? 

-8.0? 

-6.3? -9.5? 

-3.8? 

-1,3? 

-4.2? 

-3.1? 

-9.0? 

-3,3? 

-7.9? 

-3,7? 

-0.3? -2.8? 

-2.0? 

-3.7? 

-10.2? 

-10, 


-13.0? 


-11.3? -8.0? 

-3.3? 

-6.3? -8.4? 

-1.7? 

1.4? -0.3? 0.5? 0.5? 


-2.0? -2.9? 

-3.2? 

-2.8? -0.3# 

0.0? 

-2.1? -0,4? -2.5? -6,2. 


-3.7? -0.3? 

2.0? 

-1.6? -3.9? 

-8.0? 

-4.8? -3.0?-10.S? -7.0? 


-6.1? -1.4? 

0.7? 

1.8? -1.2? 

-9.7? 

-6.2? -3,4? -0.3? -0,7? 


-6.3? -12.3? 

-10.2? 

-11.0? -8.0 

? -9,3 

? -3.9? -3.4? -10.1? -3 

3 ? 

3.5? 3.7? 

0.7? 

-1,9? -2.0? 

-0.5? 

-0.4? -0.8? -0.3? -1.4? 

-10.7? 

-4.6? 0.2? 

-0.2? 

0.8? -0.4? 

-3.4? 

-3.6# -7.6? -3.3? -1.0? 


0.8? -1.2? 

-2.3? 

-0.4? 0.3? 

-4.2? 

-4.2? -4.7? -3.2? -4.3? 

-3.7? 

-7.7? -4.9? 

-5.4? 

-2.4? -4.0? 

-3.9? 

-6.3? -4.8? -4.8? 1.4? 


-2.6? 1.2? 

-3.8? 

-11.8? -4.3? 

-3.0? 

-2.3? 0.4? -1.0? 0.6 

-1,4? 


-4.1? -6.2? -9.2? -7.0? - 8 . 8 ? -3.0? 2.1? -2.1? -7.4? -0.9? 

-4.0? -4.9? -6.7? -4.2? -3.3? 1.0? -0.3? 1.6? -0.1. -2.8? 

-4.3? -3.4? -4.8? -4,0? -2.3? -2.3? -4.7? -4.3? -3.9? -4.3? 

-3.9? -6.6? -7.6? -8.2? -11.3? - 8 . 8 ? -9.8? -2.2? -3.4? -9.3i 

-12.3? -13.1? -4.7? -3.6? -3.3? -10.2? -11.3? -9.3? 


Figure 23. (Continued) 
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THtN«-S.3» -6.2* -S«6* -3.4* -4.t» -7.4* -6.0* -6.4* -4.V* -3.3* 


-7,4 

-».4 

- 6.2 

-4.4 

-3.2 

-2.4 

- 6.1 

-2.4 

2.0 

6.8 

2.3 


-5,2* -3.7* -8.7* -12.2* -13.2* -14.6* 2«-lS.l* -10.2* 
-?.3* -8.4* -7.1* -10.4* -10.7* -7.7* -5.4* -3.8* -4.8* 
-7.8* -7.6* -5.2* -6.7* -6.3* -8.0* -5.5* -6.7* -3.7* 
-7.5* 0.2* -4.4* -7.1* -3.8* -1.1* -3.7* -1.2* 0.1* -,7i 
-6.7* -7.8* -6.7* -5.2* -1.6* -3.7* -3.6* 0.0* 2.0 
-6.7* 1.5* 4.4* 3.3* -1.0*. -5.9* -5.3* -6.3* -8.2* -7.7i 
-6.7* -4.7* 1.2* .1* .4* -3.0* -4.6* .2* 0.0* .1* 2.2* 
-1.4* 2.5* -.7* 0.0* -1.3* -1.3* 

-.4* .7* -2.5* 1.3* 3.0* -2.8* -2.8* >6* 1.1* 2.0* 6.1* 
3.7* 1.4* 5.0* .8* -2.5* -3.1* -4.6* -1.7* -2.6* 1.0* 
-1.2* -2.4* 4.4* 3.3* 5.3* 6.9* 5.3* 
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TCRXT»76«3. *15«2. • 62*. 75* 614.75 *30«1 .0* 31*2.0. 62*3.0 *28«3.0* 
SEND 


Figure 23. (Continued) 
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Table 3. Description of Parameters in NAMELIST BASE 


Parameter 

Symbol* 

Type 

Metric 

Units 

English 

Description 

BASIN 

— 

R*8 

— 

— 

Basin name 

NZ 

— 

1*4 

— 

— 

Number of elevation zones 

lYEAR 

— 

1*4 

— 

— 

Year of model run 

AREA 

K 

R*8 

m2 

ft2 

Area in each elevation zone 

X 

X 

R*8 

m^s“^ 


X parameter in computing 
recession coefficient, K 

Y 

y 

R*8 

— 

— 

Y parameter in computing 
recession coefficient, K 

PDR 

— 

R*4 

— 

— 

Percentage of previous day 
runoff reaching the stream- 
gauge 

PDM2 

— 

R*4 

— 

— 

Percentage of runoff if 
more than 24 hours stream- 
flow lag. 

DTLR 

S.n 

R*4 

°C/100m 

°F/1 000ft 

Average temperature lapse 
rate in degree-days 

AN 

*^zn 

R*4 

cm’°C*d“^ 

in*°F*d“^ 

Degree-day factors 

CS 

CSzn 

R*4 

— 

— 

Snow runoff coefficient 
factor 

CR 

^Rzn 

R*4 

— 

— 

Rain runoff coefficient 
factor 

ZMEAN 

h 

R*8 

m 

ft 

Hypsometric mean elevation 
of each zone 

STATN 

hsT 

R*8 

m 

ft 

Elevation of each base 
station 

IPR 


1*2 



Precipitation method 

0 = Non snow-covered areas 

1 = Total areas 


♦Note: The subscript zn refers to number of snowmelt days per zone. 
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Tables. (Continued) 


Parameter Symbol* 

Type 

Units 

Metric English 

Description 

MAXMIN — 

..1*2 


Flag to indicate if temper- 
atures are input as 
maximum— minumum 

0 = Temperatures input 
not as MAX-MIN 

1 = Temperatures input as 
MAX-MIN 

lEXT — 

1*2 


Flag if temperatures are to 
be automatically extra- 
polated to elevation zone 

0 = Extrapolate using pre- 
determined constant 

1 = Automatically extra- 
polated using lapse rate 

IDEGDY — 

1*2 


Flag if temperature is to be 
computed in degree-days 

0 = No computation 
necessary. Temperature 
already input in degree-days 

1 = Compute temperature 
in degree-days 


*Note: The subscript zn refers to number of snowmelt days per zone. 


The SRM parameters, DTLR (if required), AN, CS, CR, and IPR are parameters that change through- 
out the snowmelt season. These are included in the basin NAMELIST so that the user can vary 
these parameters without having to input the climatological NAMELIST on each run. Figure 24 
shows a typical basin NAMELIST input, again on the Dischma basin in Switzerland. 

The NAMELIST OPT contains program control options to properly execute the SRM program. 

This NAMELIST can also be read several times allowing the user the capability of making several 
computer runs for a particular basin at one time. A description of each program option NAMELIST 
parameter including type and default value are provided in Table 4. Numerous program options 
are provided to the user such as plotting and printing options. The user may wish to operate in 
either metric or English units, so an option is provided for the appropriate conversion of units 
(UFLAG). It should be noted that the user must be consistent in inputting all data in either metric 
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&BASE 

BASIN='DISCHMA '»'BASIN 'f 
NZ = 3> 

IYEAR=197^» 

AREA=8.9D6» 2.45D7» 9.9D6* 5*0. D0» 

X=0.921D0» 

Y=-0.0426D0f 

QNS=0.56D0j 

PDR=367*.5» 

PDM2=367*0. » 

DTLR=2928*0.65» 

AN = 15*»49l5*.45931*.45f 30*.50M6*.55>46*.60f 123*.25»59*.3r0. f 
15*.4»15*.45>31*.45f 30».50>4A*.55f46*.60» 123*.25f59*.3»0. f 
lS«»4f 15«.45»31«»45f30**50»46*.S5»46«»60»123*»2S^S9«.3r0. f 
CS=45*.95f l&*.9»61*.85>31*.30f30*.9>182*.95»0. f 
4S«»9 Sf 16*.9r61«.85f 31*.80930*0.99l82*.95r0. f 
45*.95> 16».9>61».85f 31*.80»30*0.9Tl82*.95f 0. f 
CR=91»1 .0» 123*0. 7 » 151*0. 6» 

ZhEAN=1938.D0f 2370.D0>2750.D0»5*0.D0^ 

STATN=2677.D0f 
HAXMIN=1 » 

IEXT=1> 

IDEGDY=lf 

IPR=76*0f 199*l,91*0f 

76*0^199*lf91*0f 
76*0» 199*1 f 91*0» 

&END 


Figure 24. Sample NAMELIST BASE input for the Dischma basin, 1974. 
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Table 4. Description of Parameters in NAMELIST OPT 


Parameter 

Default 

Type 

Description 

IRUN 

1 

1*4 

Model run number 

MODE 

0 

1*4 

Simulation/Forecast mode flag 

0 = Simulation 

1 = Forecast 

IPLT 

0 

1*2 

Plotting option flag 

0 = No plot 

1 = Plot 

IPRINT 

0 

1*2 

Printing option flag 

0 = No print 

1 = Print 

UFLAG 

0 

1*2 

Units option flag 

0 = Metric units 

1 = English units 

ACTFLG 

1 

1*2 

Actual data flag 

0 = No actual data available 

1 - Actual data available 

IZONE 

3*1 

1*2 

Temperature, precipitation and runoff coefficient 
zone flag 

IZONE ( 1 ) = Temperature lapse rate 
IZONE (2) = Precipitation 
IZONE (3) = Runoff coefficients 

0 = No zone input 

1 = Input by zone 

IDTFLG 

0 

1*2 

Adjustment for temperature lapse rate data flag 

0 = No temperature lapse rate data available 

1 = Temperature lapse rate data available 

MTHD 

0 

1*2 

Degree-day temperature computation flag 

0 = Mean method 

1 = Effective minimum 

ITPROC 

0 

1*2 

Temperature processing flag to extrapolate 
temperatures and compute degree-days 

0 = No temperature lapse rate processing 

1 = Temperature lapse rate processing 

IPRRUN 

1 

1*2 

Runoff print option flag 

0 = No print 

1 = Print runoff values by zones 

ISTMTH 

4 

1*4 

Starting month of snowmelt run 

lENMTH 

9 

1*4 

Ending month of snowmelt run 
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or English units. No mixing of units is allowed and the unit option chosen must correspond to the 
units input into the program. In the event that no actual (measured) streamflow data is available, 
the user must input an initial actual streamflow value for the first day in place of actual data 
(ACTUAL (1 )). An actual data flag must be set by the user indicating to the program that no 
actual data is available (ACTFLG). The model run identifying number, IRUN, is the only program 
option NAMELIST parameter required. All other NAMELIST parameters not specified will default 
to BLOCK DATA values which have been chosen to provide the basic options to properly execute 
the SRM program. Figure 25 shows typical program option NAMELIST input for the Dischma 
basin. 


»OPT 
IRUN = 1 , 
HODE=Of 
IPLT=Of 
IPRINT^lf 
UFLAG=Of 
ACTFLG=lf 
IZONE=:OfOfOf 
inTFLG=lf 
MTHD=0» 
ITPR0C=1 » 
IPRRUN = 1 , 
ISTMTH=Af 
IENHTH=7» 
SEND 


Figure 25. Sample NAMELIST OPT input for the Dischma basin, 1974. 


Temperature Input Processing 

The format in which temperature data are received can vary widely for each basin. Temperatures 
can be input as hourly readings, as average daily temperatures in degrees or degree-days, or as 
maximum and minimum values for one or two observing stations. Because the SRM computations 
for runoff will only accept temperature input in degree-days for each elevation zone, a certain 
amount of preprocessing is required if temperatures are not in that format. 

To obtain temperatures in the proper format, a temperature preprocessing routine LAPSE is called 
to convert temperatures in degrees to degree-days (if they are not in that form) and to extrapolate 
degree-day temperatures to the elevation zones. When daily maximum and minimum temperatures 
are input, the temperature preprocessing routine LAPSE can be used to convert temperatures from 
degrees to degree-days. This is accomplished automatically in the program when the user sets the 
flags MAXMIN and IDEGDY to 1 . The degree-day temperatures can be computed by setting the 
flag MTHD for effective minimum or mean method. The routine LAPSE can also accomodate 
temperatures that are input as an average daily value in degrees or as daily temperatures already 
converted to degree-days. 
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Additionally, the routine LAPSE will automatically extrapolate degree-day temperatures to the 
elevation zones according to Equation (4) provided the flag lEXT is set to 1. For the program to 
automatically extrapolate temperatures to the elevation zones the user must supply the mean 
elevation in each zone ZMEAN (h), the elevation of the temperature base station, STATN (hg-p)? 
and the average lapse rate DTLR (5). In cases where the average lapse rate is predetermined for 
each elevation zone (rather than calculated from actual temperature data), no extrapolation is 
required beyond the addition of the lapse rate value to the degree-day temperature. 

In special cases where temperatures are input hourly or as maximum-minimum from two stations, 
the modular routine PRETMP must be used to obtain the appropriate degree-day values for SRM. 
This routine is not part of the normal SRM processing and is included in Appendix C. PRETMP 
requires more storage capabilities and can be used as is or as a guideline for more detailed temper- 
ature preprocessing. 

Precipitation Input Processing 

The SRM program handles precipitation falling during snowmelt in several ways. First, based on a 
critical threshold temperature, a decision is made as to whether the precipitation is snow or rain. 

If it is snow and it falls on the existing snowpack, it is assumed to be melted along with the original 
snow later in the season as soon as the degree-day totals are sufficient. If it is snow and it falls on 
the snow-free area of the basin, the new snow is treated as transient snow and is melted right after 
the storm as soon as temperatures rise sufficiently. This input is treated merely as delayed rainfall. 
The situation with respect to rainfall is more complex because of the nature of the snowpack during 
the snowmelt season. In all cases rain falling on non snow-covered areas is automatically added to 
snowmelt by the model. In the early days of the snowmelt season, however, rain falling on the 
snow-covered region is assumed to fall on dry snow and it is held by the snowpack as part of the 
ripening process. Later in the snowmelt season over the snow-covered area, rain is assumed to fall 
on a ripe snowpack and this water is transmitted through the snow and added by the model to 
snowmelt. 

Based on the progression of the snowmelt season, the program user must input daily the precipitation 
calculation method (IPR) desired (0 = rain added to snowmelt from snow-free areas only, i.e., a 
dry snowpack or 1 = rain added to snowmelt from all basin areas, i.e., a ripe snowpack). 

Streamflow Input 

Provision is made in the SRM program to take into account streamflow lag which can vary as the 
snowmelt season progresses. The streamflow lag is usually specified in hours, however, the effect 
on streamflow simulation in the model is expressed as the percentage of streamflow recorded on 
day n that is actually a result of snowmelt from the previous day (n— 1 ). In the case of the South 
Fork basin in Colorado, it was determined that early in the snowmelt season approximately 70% 
of the streamflow recorded on day n is the result of the prior day’s snowmelt amount, and 30% of 
the streamflow on day n is from snowmelt occurring on day n. The input to the program is there- 
fore set at PDR = 0.70. Provision is also made in the model for when streamflow lag exceeds 18 
hours. In this case there is no runoff contribution on day n from snowmelt occurring on day n. 
Streamflow occurring on day n is a result of snowmelt occurring on days n— 1 and n— 2. To reflect 
this situation, the input parameter PDM2 is set equal to the percentage of day n streamflow contri- 
bution resulting from day n— 2 snowmelt. 

The SRM program can be run in a streamflow simulation or forecast mode by specifying the MODE 
parameter in NAMELIST OPT. In the forecast mode, the model calculated daily streamflow value 
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can be updated every seventh day with measured streamflow for an entire snowmelt season run. In 
the default condition, SRM runs in the streamflow simulation mode. 

Job Control Language 

The snowmelt-runoff model program can be operated in a batch mode via card deck as shown in 
Figure 26. The only IBM 3081 Job Control Language (JCL) required to execute the program is 
shown below. 


//JOB CARD (User supplied Job and accounting information) 

//EXEC FORTRAN (Compiler type and options) 

//SOURCE SYSIN DD* 


• (Include FORTRAN source deck) 


//EXEC LOADER (Loader size and options) 

//GO.FT06F001 SYSOUT =A (Output device) 

//DATA5 DD* 

• (Include NAMELIST CLIM) 

• (Include NAMELIST BASE) 

• (Include NAMELIST OPT) 


/♦ 

Program Output Capabilities 

The output of the SRM program consists of various numerical results and printer plots of the actual 
versus computed hydrographs. Depending on the purpose of the computer run, all or part of the 
output products may be produced. 

The numerical output results consist of the measured versus calculated daily discharge rate for the 
snowmelt period (or entire year), the actual and computed total volume of streamflow for the 
snowmelt period (or entire year), the percent seasonal difference between the actual streamflow 
and the calculated streamflow (Dy), the mean actual and calculated streamflows, the Nash- 
Sutcliffe “goodness of fit” measure, the daily calculated snowmelt depth by elevation zone, and the 
computed daily precipitation values in each of the basin elevation zones. Table 5 provides a brief 
description of the output variables. 


50 







Figure 26. Sample card deck for input of snowmelt-runoff model program. 
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Table 5. 

Description of Output Variables 


Variable 

Symbol 

Type 

Description 

P 

^zn 

R*4 

Precipitation contributing to runoff in each zone assigned 
every day 

RUNOF 

— 

R*4 

Total depth (precipitation + snowmelt) contributing to 
runoff in each zone 

QNPIX 

Qn+1 

R*4 

Computed stream runoff for next day 

XNSR2 

r2 

R*4 

Nash-Sutcliffe ‘goodness of fit’ measure 

VOL 

— 

R*4 

Computed volume for predicted runoff 

AVOL 

— 

R*4 

Computed volume for actual runoff 

PCT 

Dv 

RM 

Percent seasonal difference between actual and predicted 
runoff 

AMEAN 

— 

R*4 

Mean actual stream runoff 

QMEAN 

— 

R*4 

Mean computed stream runoff 


A printer plot can be generated using the FORTRAN PRPLOT plotting package supplied with the 
snowmelt-runoff model. A listing for PRPLOT is included as part of Appendix B. The calculated 
and actual streamflows over the snowmelt-runoff season are plotted on the same graph as dis- 
charge rate vs. time. If no actual data is available then only the calculated runoff is plotted if 
desired. Figure 27 gives an example of some numerical results for the Dischma basin for 1974. 
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RUM • 


1 BA&TM=PIRCHMA HASIH 


YEAR‘S 1974 


MODE <0=SIMULATEnil^=KORCAST>= 0 
PROGRAM OPTIONS (0=OFFfl=ON> 

PLOT OPTION* 0 PRINT OPTION- 1 UN1TS< 0«METRIC. 1-ENHHSH) = 0 
ACTUAL DATA FLAG* 1 /ONE INPUT OATA( TEMP . f PKECIP . >RUNOKF COEF.)* 000 
LAPSE RATE DATA FLAG* 1 DEOREE-DAY METH(ID(0*KEAN> 1*.EFFE Cl lUE MINIMUM)* 0 
TEMPERATURE PROCESSING FLAG* 1 RUNOFF BY ZONE OUTPUT OPTION* 1 

FLAG TO EXTRAPOLATE TEMPERATURE5( 0=EX1 RAPOI. ATE USING GIVEN LAPSE RATEBf l-^AUTOHA! ICALLY EXTRAPOLATE)* 1 

FLAG TO COMPUTE DEGREE-DAYS* 1 

FLAG TO INDICATE INPUT TEMPS ARE MAX-MIN* 1 

START MONTH* 4 END MONTH* 7 


NUMBER OF SNOWMELT DAYS* 122 NUMBER OF ELEVATION ZONES* 3 


RECESSION COEFFIECIENT FACTORS 
X FACTOR* 0,921000 Y FACTOR---0 . 042600 
INITIAL RUNOFF VALUE* 0.360 LAO* 6 HOURS 
AREA IN EACH ELEVATION ZONE 

ZONE AREA (SO. METERS > 

1 0,P900U 07 

2 0.2430D OB 

3 0.9900D 07 

HYPSOMETRIC MFAN ELEVATION IN EACH ZONE <HETERS ) 


1 0.193GD 04 

2 0.2370D 04 

3 0.2750P 04 

BASE STATION ELEVATION (METERS ) 


0,76770 04 


Figure 27. Snowmelt-runoff model results for the Dischma basin, 1974. 
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DAILY 

MAXIMUM AND 

MINIMUM 

TEHPERATURFS 






RANGO- 

HARTtNEC MODEL FOR 

IHSCHMA BASIN 

YEAR 

= 1974 



DAY 


APR 


MAY 

JUN 

JUL 


MAX TEMP MIN TEMP 

MAX TEMP MIN TEMP 

MAX TEMP 

MIN TEMP 

MAX TEMP 

MIN TEMP 

1 

-0.20 

-5.30 

-1.10 

-6.20 

3.00 

-2.40 

8,20 

2 I 00 

2 

0.40 

-6.20 

-2,20 

-7 , 80 

5.20 

-6.70 

6.60 

' -0.40 

3 

1.30 

-5.60 

-2.00 

-7.60 

8.70 

1.50 

6.70 

0.70 

4 

3.70 

-3.40 

0.70 

-5,20 

9.60 

4.40 

7.90 

-2.50 

5 

-2.00 

-4,80 

-3.00 

-6.70 

10,30 

3.30 

9,60 

1.30 

6 

-0.70 

-7.40 

-3 . 70 

-6.30 

4.10 

-1.00 

8.30 

3.00 

7 

-0.90 

-6.00 

-3,00 

-8,00 

-0,80 

-5,90 

3.20 

-2.80 

8 

-0.30 

-6.40 

-0.70 

-5.50 

1,50 

-5.30 

2.70 

-2.80 

9 

1.60 

-4.90 

-1,00 

-6.70 

1.40 

-6.30 

8,00 

0.60 

10 

-1.00 

-5.30 

-0,60 

-3,70 

-1,80 

-8.20 

6.80 

1.10 

11 

1 .00 

-7 . 40 

-1,70 

-4.40 

-4.90 

-7.70 

10,30 

2.00 

12 

0.70 

-5,20 

1.30 

-7.50 

-4.10 

-6.10 

12.80 

6.10 

13 

3.00 

-3.90 

6.80 

0.20 

-2,40 

-6,90 

12.00 

6.80 

14 

0,0 

-8,70 

3,30 

-4.40 

4.40 

-4.70 

9.70 

3.70 

15 

-7.20 

-12.20 

-0,70 

-7 .10 

5.10 

1 .20 

9,00 

1.40 

16 

-9.60 

-13.20 

2.80 

- 3 . 80 

6.20 

0.10 

10.50 

5.00 

17 

-9.00 

-14.60 

1 .10 

-1.10 

6.30 

0.40 

5,90 

0.80 

18 

-6.40 

-15.10 

4,20 

-3.70 

2.40 

-3.00 

1 .50 

-2.50 

19 

-6.30 

-15.10 

5.40 

-1 .20 

2.90 

-4 . 60 

-0.50 

-3. 10 

20 

-3.20 

-10.20 

2.60 

0.10 

5.40 

0.20 

-1,10 

-4.60 

21 

-4.40 

-9.40 

3,70 

-0.70 

5.50 

0.0 

0.90 

-1 ■ 70 

22 

-3.80 

-9.50 

2.90 

-3.20 

5.60 

0.10 

3.60 

-2.60 

23 

-0.80 

-8.40 

-2.00 

-6.90 

5.70 

2.20 

0.20 

1.00 

24 

-4.80 

-9,10 

-2 . 50 

-7.80 

3.00 

-2.40 

13,40 

2.30 

25 

-5.90 

-10.40 

-0,60 

-6.70 

7,60 

-1.40 

9.20 

-1.20 

26 

-5.00 

-10.70 

4.10 

-5,20 

5.30 

2.50 

11.00 

-2.40 

27 

-4.80 

-9.90 

5.20 

-1 .60 

3.00 

-0 , 70 

13.30 

4.40 

28 

-0.30 

-5.40 

3.00 

-3.90 

2.00 

0.0 

13.30 

3.30 

29 

0.0 

-3.80 

4.40 

-3.60 

3.80 

-1.30 

15,50 

5.30 

30 

-1.70 

-4.80 

5.10 

0.0 

3.50 

-1.30 

14.20 

6.90 

31 

*«**«* 


4.70 

2.00 

««««** 


11,80 

5.30 


DEGRF.f-nAY FACTORS ( AN ) t RUNOFF CfJFFF I C I FNT S FOR SNUW(CS). FOR RA1N<CR)» PRHCIF HF:TH0B<PR) 


RANGO-HAR TINFC HOI)t:i. FOR DJtSCHHA BASIN YFAR= h'f/A 

DATA FOR ZONE A 

DAY APR MAY JUN JLU 



AN 

C8 

CR 

PR 

AN 

CS 

CR 

PR 

AN 

cs 

CR 

PR 

AN 

. CS 

CR 

PR 

1 

0.40 

0.95 

1 .00 

0 

0,45 

0.95 

1 .00 

0 

0.50 

0.85 

1.00 

0 

0 1 55 

0.85 

0.70 

1 

2 

0.40 

. 0.95 

1.00 

0 

0.45 

0.95 

1.00 

0 

0.50 

0,85 

1 .00 

0 

0 . 55 

0.85 

0.70 

1 

3 

0,40 

0.95 

1,00 

0 

0.45 

0.95 

I ,00 

0 

0 . 50 

0,85 

3 .00 

0 

0 . 55 

0.85 

0.70 

1 

4 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1.00 

0 

0,50 

0.85 

1.00 

0 

0.55 

0,85 

0,70 

1 

5 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1 .00 

0 

0 , 50 

0.85 

1 .00 

0 

0.55 

0.85 

0,70 

1 

6 

0.40 

0.95 

1 ,00 

0 

0.45 

0.95 

1 ,00 

0 

0.50 

0.83 

1.00 

0 

0 , 53 

0.85 

0.70 

1 

7 

0.40 

0,95 

1 .00 

0 

0,45 

0.95 

I .00 

0 

0.50 

0,85 

1 .00 

0 

0,55 

0.85 

0.70 

3 

8 

0,40 

0.95 

1 .00 

0 

0,45 

0.95 

1.00 

0 

0 . 50 

0.85 

1 .00 

0 

0.55 

0.85 

0.70 

1 

9 

0.40 

0.95 

1.00 

0 

0,45 

0.95 

1 .00 

0 

0 . 50 

0.B5 

1,00 

0 

0,55 

0.85 

0.70 

1 

10 

0.40 

0.95 

1 ,00 

0 

0.45 

0.95 

1.00 

0 

0.50 

0.85 

1,00 

0 

0.55 

o.es 

0,70 

1 

11 

0,40 

0,95 

1 ,00 

0 

0.45 

0,95 

1 .00 

0 

0.50 

0.85 

1.00 

0 

0.55 

0.85 

0.70 

1 

12 

0.40 

0.95 

\ . 00 

0 

0 , 43 

0.95 

1,00 

0 

0.50 

0.85 

1.00 

0 

0.55 

0.85 

0.70 

1 

13 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1 . 00 

0 

0.50 

0,85 

1,00 

0 

0 , 55 

0.85 

0.70 

1 

14 

0,40 

0.95 

1 ,00 

0 

0,45 

0.95 

1,00 

0 

0,50 

0.85 

1.00 

0 

0 • 55 

0.85 

0.70 

1 

15 

0.40 

0,95 

1.00 

0 

0.45 

0.95 

] . 00 

0 

0.50 

0.83 

1 ,00 

0 

0.55 

0.85 

0,70 

1 

16 

0.45 

0,95 

1.00 

0 

0.45 

0 . 90 

1,00 

0 

0.50 

0 . 85 

1.00 

1 

0,55 

0.8S 

0.70 

1 

17 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1.00 

0 

0,50 

0.85 

1 ,00 

1 

0 . 55 

0,85 

0.70 

1 

J8 

0.45 

0.95 

1.00 

0 

0.45 

0,90 

1 . 00 

0 

0,50 

0.85 

1 ,00 

1 

0.55 

0.85 

0.70 

1 

19 

0.45 

0,95 

1 ,00 

0 

0.45 

0.90 

1 .00 

0 

0i50 

0,85 

1,00 

1 

0 , 55 

0.85 

0.70 

3 

20 

0 , 45 

0.95 

1.00 

0 

0,45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0.55 

0.85 

0.70 

1 

21 

0,45 

0.95 

1,00 

0 

0,45 

0.90 

1 , 00 

0 

0.50 

0 , 85 

1 .00 

1 

0 . 55 

0.85 

0.70 

3 

2 2 

0 . 45 

0,95 

1.00 

0 

0 , 45 

0 . 90 

1 ,00 

0 

0,50 

0.85 

1 .00 

1 

0.55 

0.05 

0.70 

1 

23 

0.45 

0.95 

1 .00 

0 

0.45 

0.90 

1 , 00 

0 

0.50 

0,85 

1 .00 

1 

0 1 55 

0 I 85 

0 , 70 

1 

24 

0.45 

0.95 

1 .00 

0 

0.45 

0,90 

1 ,00 

0 

0,50 

0.85 

1 ,00 

1 

0,55 

0.85 

0.70 

1 

25 

0 , 45 

0,95 

1 .00 

0 

0.45 

0 . 90 

1 . 00 

0 

0 . 50 

0. b:> 

1 .00 

1 

0 . 55 

0 . 85 

0 . 70 

1 

26 

0, 45 

0.95 

1 , 00 

0 

0 . 4 5 

0.90 

1 ,00 

0 

0.50 

0 . 85 

1 . 00 

1 

0.55 

0.85 

0.70 

1 

27 

0 . 45 

0.95 

1 . 00 

0 

0.45 

0 . 90 

1 . 00 

0 

0,50 

0.85 

1 . 00 

1 

0,55 

0,85 

0.70 

1 

28 

0 . 45 

0,95 

1 .00 

0 

0,45 

0,90 

1 .00 

0 

0 . 50 

0,85 

1 .00 

1 

0 ,55 

0.85 

0.70 

1 

29 

0 , 45 

0 . 95 

1 .00 

0 

0 . 45 

0.90 

I , 00 

0 

0.50 

0.85 

1 ,00 

1 

0 . 55 

0,85 

0. 70 

3 

30 

0 . 45 

0.95 

1 .00 

0 

0 , 45 

0,90 

1 ,00 

0 

0,50 

0.85 

1 .00 

1 

0 . 55 

0.85 

0.70 

1 

31 



«»*« 

« 

0 . 45 

0 . 90 

1 . 00 

0 

»?.»« 


»x«« 

f 

0 . 55 

0.85 

0.70 

1 


Figure 27. (Continued) 
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DEGRre-nAY FACTORSC an ) t runoff nOFFFlOIFNTS FUR 


SN0W(i:s) 


FOR RAXH<OR)f PRECIP NFIH(HKPR) 


RANljO-HARriNEC MODEL FOR DISOHMA BASIN 


YEAR= 1974 


DATA FOR ZONE P 



AN 

(^S 

CR 

PR 

AN 

CS 

CR 

PR 

AN 

CS 

r.R 

PR 

AN 

CS 

CR 

PR 

1 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

1 .00 

0 

0.50 

0.B5 

1.00 

0 

0.55 

0.85 

0.70 

1 

2 

0.40 

0 . 95 

1 .00 

0 

0.45 

0.95 

1 .00 

0 

0.50 

0 . 85 

1,00 

0 

0,55 

0.85 

0,70 

1 

3 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

I .00 

0 

0,50 

0.B5 

1.00 

0 

0.55 

-(r,B5 

0.70 

1 

4 

0.40 

0.95 

1.00 

0 

0.45 

0 , 95 

1.00 

0 

0.50 

0.85 

1.00 

0 

0.55 

0.85 

0.70 

1 

5 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

1.00 

0 

0,50 

0.85 

1.00 

0 

0 . 55 

0.85 

0.70 

1 

6 

0.40 

0.95 

1 ,00 

0 

0.45 

0.95 

1 . 00 

0 

0.50 

0.85 

1.00 

0 

0,55 

0.85 

0,70 

1 

7 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

1 .00 

0 

0.50 

0.85 

1 ,00 

0 

0.55 

0.85 

0.70 

1 

8 

0.40 

0.95 

1.00 

0 

0.45 

0,95 

1 . 00 

0 

0.50 

0.H5 

1.00 

0 

0.55 

0 . 85 

0.70 

1 

9 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1.00 

0 

0.50 

0.85 

1 .00 

0 

0 . 55 

0.85 

0.70 

1 

10 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

1.00 

0 

0,50 

0.85 

1 .00 

0 

0.55 

0.85 

0.70 

1 

11 

0.40 

0.95 

1.00 

0 

0.45 

0,95 

1.00 

0 

0.50 

0.85 

1.00 

0 

0 . 55 

0.85 

0.70 

1 

12 

0.40 

0.95 

1,00 

0 

0,45 

0.95 

1,00 

0 

0.50 

O.BS 

1,00 

0 

0.55 

0.85 

0.70 

1 

13 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1.00 

0 

0.50 

0.85 

1 ,00 

0 

0 , 55 

0,85 

0,70 

1 

14 

0.40 

0 , 95 

1 .00 

0 

0.45 

0.95 

1.00 

0 

O.bO 

0.85 

1.00 

0 

0.55 

0.85 

0.70 

1 

IS 

0.40 

0.95 

1.00 

0 

0.45 

0.95 

1 ,00 

0 

0,50 

0.85 

1,00 

0 

0.55 

0.85 

0.70 

1 

14 

0.45 

0.95 

1 .00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1.00 

1 

0.55 

0.85 

0.70 

1 

17 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0.55 

0.85 

0.70 

1 

18 

0,45 

0.95 

1 ,00 

0 

0.45 

0,90 

1.00 

0 

0.50 

0.85 

1.00 

1 

0.55 

0.85 

0.70 

1 

19 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1 .00 

0 

0,50 

0,85 

1 ,00 

1 

0,55 

0.85 

0.70 

1 

20 

0.4H 

0 . 95 

1.00 

0 

0,45 

0.90 

1.00 

0 

0,50 

0.85 

1 .00 

1 

0 . 55 

0.85 

0,70 

1 

21 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0 . 55 

0.85 

0,70 

1 

22 

0.4S 

0.95 

1,00 

0 

0.45 

0,90 

1.00 

0 

0.50 

0.85 

1.00 

1 

0,55 

O.BS 

0.70 

1 

23 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1,00 

0 

0.50 

0,85 

1 .00 

1 

0.55 

0.85 

0.70 

1 

24 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1 . 00 

0 

0 . 50 

0.85 

1.00 

1 

0 . 55 

0.85 

0.70 

1 

25 

0.45 

0,95 

1.00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0 . 55 

0.85 

0,70 

1 

26 

0.45 

0.95 

1.00 

0 

0,45 

0,90 

1,00 

0 

0.50 

0.85 

1.00 

1 

0.55 

0.85 

0,70 

1 

27 

0.45 

0.95 

1.00 

0 

0,45 

0.90 

1 .00 

0 

0.50 

0,85 

1 .00 

1 

0 .55 

0.85 

0.70 

1 

28 

0.45 

0 . 95 

1 .00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0.55 

0.85 

0.70 

1 

29 

0.45 

0.95 

1.00 

0 

0.45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0.55 

0.85 

0.70 

1 

30 

0,45 

0,95 

1 .00 

0 

0 .45 

0.90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0 . 55 

0.85 

0.70 

1 

31 

«*«* 

***% 

*«*« 

« 

0.45 

0.90 

1.00 

0 

«*«« 

««*« 

***« 

* 

0.55 

0.85 

0.70 

1 
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-MART I NEC MODEL 

FOR 1 

I.USCHMA BABIN 


YEAR 
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DATA FOR ZONE 

c 













DAY 


APR 



MAY 



JUN 



,un. 





AN 

CS 

CR 

PR 

AN 

CS 

CR 

PR 

AN 

CS 

CR 

PR 

AN 

CS 

CR 

PR 

1 

0.40 

0,95 

1 .00 

0 

0.45 

0.95 

1 , 00 

0 

0, 50 

0,85 

1 , 00 

0 

0.55 

0.85 

0,70 

1 

2 

0.40 

0,95 

1.00 

0 

0.45 

0 .95 

1 , 00 
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0.85 
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1 
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0.40 

0.95 

1 .00 
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0.45 

0 . 95 
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0 

0.50 

0.85 

1.00 
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0 . 55 

0,85 

0.70 

1 

5 
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0.95 

1 .00 

0 

0.45 

0,95 

1 ,00 

0 

0.50 

0.85 

1.00 

0 

0 . 55 

0 . 85 

0,70 

1 

6 

0.40 

0.95 

1 , 00 

0 

0.45 

0.95 

1 . 00 

0 

0 , 50 

0,85 

1 .00 

0 

0.55 

0.85 

0.70 

1 

7 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1 ,00 

0 

0.50 

0.85 

1 .00 

0 

0 . 55 

0.B5 

0.70 

1 

8 

0.40 

0.95 

1 .00 

0 

0 . 45 

0.95 

1 .00 

0 

0 , 50 

0.85 

1 .00 

0 

0.55 

0.85 

0.70 

1 

9 

0.40 

0.95 

1 .00 

0 

0.45 

0.95 

1 . 00 

0 

0.50 

0.85 

1 .00 

0 

0 . 55 

0.85 

0 . 70 

1 

10 

0.40 

0.95 

1 ,00 

0 

0.45 

0.95 

1 .00 

0 

0.50 

0.85 

1.00 

0 

0.55 

0.85 

0.70 

1 

11 

0.40 

0.95 

1.00 

0 

0.45 

0,95 

1,00 

0 

0.50 

0.85 

1.00 

0 

0 . 55 

0.85 

0 , 70 

1 

12 

0.40 

0.95 

1 , 00 

0 

0.45 

0,95 

1.00 

0 

0.50 

0 . 85 

1 .00 

0 

0 . 55 

0.85 

0.70 

1 

13 

0,40 

0,95 

1 .00 

0 

0.45 

0.95 

1.00 

0 

0.50 

0.85 

1 .00 

0 

0,55 

0.85 

0,70 

1 

14 
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0.95 

1 . 00 
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0.45 

0,95 
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0 

0.50 

0 . 85 
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0.55 

0.85 

0.70 

1 
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0 

0.45 
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1.00 

0 

0.50 

0.85 
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0 

0.55 

0.85 

0,70 

1 

16 

0.45 

0 , 95 

1 . 00 

0 

0,45 

0.90 

1.00 

0 

0.50 

0 . 85 

1 ,00 

1 

0.55 

0.85 

0,70 

1 

17 

0.45 

0.95 

1 .00 

0 

0.45 

0,90 

1.00 

0 

0.50 

0.85 

1 .00 

1 

0.55 

0,85 

0.70 

1 

18 

0.45 

0,95 

1.00 

0 

0. 4.5 

0,90 

1.00 

0 

0.50 

0 . 85 

1.00 

1 

0.55 

0.85 

0.70 

1 
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0.45 

0,95 
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0.90 

1,00 

0 

0.50 

0.85 
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1 

0.55 

0.85 

0.70 

1 

20 
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0,95 
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0.50 
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1 
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1 
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1 
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LAPSf: RATfUDll.R) f CRITlCAt Tfc HPFRATIIRE < Tf;Rl ) 


RANtjO-MARTTNEC MOBEl. FOR DtSCHHA BASIN YEAR= 1974 

DATA FOR -/.ONE A 


DAY APR MAY JlIN Jill. 



DTI.R 

TCRT 

OTl.R 

TCRT 

DTLR 

TCRT 

im.R 

TCRT 

1 

0,*5 

3.00 

0,65 

3,00 

0,65 

3.00 

0,65 

0.75 

2 

0.A5 

3.00 

0,65 

3.00 

0.65 

3.00 

0.65 

0.75 

3 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0,65 

0.75 

4 

0.65 

3 . 00 

0,65 

3,00 

0 . 65 

3.00 

0.65 

0,75 

5 

0.65 

3.00 

0,65 

3,00 

0.65 

3.00 

0.65 

0,75 

6 

0.65 

3.00 

0.65 

3,00 

0 . 65 

3.00 

0 , 65 

0.75 

7 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0,65 

0.75 

8 

0.65 

3.00 

0 . 65 

3.00 

0 . 65 

3.00 

0.65 

0.75 

9 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0 . 65 

0,75 

10 

0.65 

3.00 

0 . 65 

3.00 

0 . 65 

3.00 

0,65 

0.75 

11 

0.65 

3,00 

0,65 

3.00 

0.63 

3.00 

0 . 65 

0,75 

12 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0,65 

0.75 

13 

0.65 

3,00 

0.65 

3,00 

0.63 

3.00 

0.65 

0,75 

14 

0.65 

3,00 

0 ,65 

3,00 

0,65 

3,00 

0,65 

0.75 

15 

0.65 

3.00 

0.65 

3,00 

0.65 

3.00 

0.65 

0.75 

16 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

17 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0 . 75 

18 

0.65 

3.00 

0.65 

3,00 

0.65 

2.00 

0.65 

0.75 

19 

0.65 

3.00 

0.65 

3,00 

0.65 

2.00 

0.65 

0.75 

20 

0.65 

3.00 

0.65 

3.00 

0 , 65 

2.00 

0.65 

0.75 

21 

0.65 

3.00 

0.65 

3,00 

0.65 

2.00 

0.65 

0.75 

22 

0.65 

3.00 

0 . 65 

3,00 

0.65 

2,00 

0.65 

0.75 

23 

0.65 

3,00 

0.65 

3,00 

0 . 65 

2.00 

0.65 

0.75 

24 

0.65 

3.00 

0.65 

3,00 

0,65 

2.00 

0.65 

0.75 

25 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0,75 

26 

0.65 

3 , 00 

0 . 65 

3,00 

0.65 

2.00 

0,65 

0v75 

27 

0.65 

3.00 

0,65 

3,00 

0.65 

2.00 

0,65 

0,75 

28 

0.65 

3,00 

0.65 

3,00 

0.65 

2.00 

0.65 

0.75 

29 

0.65 

3.00 

0.65 

3.00 

0 . 65 

2,00 

0.65 

0.75 

30 

0.65 

3,00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

31 


«»«« 

0.65 

3.00 


»««« 

0.65 

0.75 


LAPSE RATE(DTLR)» CRITICAL TEMPERATURE H CRT ) 


RANBO-MARTINtC MOFlEl. FUR DISCHMA BASIN YEAR= 1974 



DATA 

FOR 70NE B 



DAY 

APR 


KAY 



DTLR 

TCRT 

DTI.R 

TCRT 

1 

0.65 

3.00 

0.65 

3.00 

2 

0.65 

3.00 

0,65 

3.00 

3 

0.65 

3.00 

0,65 

3.00 

4 

0.65 

3.00 

0.65 

3.00 

5 

0.65 

3.00 

0.65 

3.00 

6 

0,65 

3,00 

0,65 

3.00 

7 

0.65 

3.00 

0.65 

3.00 

8 

0.65 

3.00 

0.65 

3.00 

9 

0.65 

3.00 

0,65 

3,00 

10 

0.65 

3.00 

0.65 

3.00 

11 

0,65 

3.00 

0.65 

3.00 

12 

0.65 

3.00 

0.65 

3.00 

13 

0.65 

3.00 

0.65 

3.00 

14 

0.65 

3.00 

0.65 

3.00 

IS 

0.65 

3.00 

0.65 

3.00 

16 

0.65 

3.00 

0,6!> 

3,00 

17 

0.65 

3.00 

0.65 

3.00 

18 

0.65 

3.00 

0.65 

3.00 

19 

0,65 

3.00 

0,65 

3.00 

20 

0 . 65 

3,00 

0 . 65 

3.00 

21 

0.65 

3.00 

0.65 

3,00 

2? 

0 , 65 

3.00 

0 . 65 

3.00 

23 

0,65 

3.00 

0.65 

3.00 

24 

0.65 

3.00 

0,65 

3,00 

25 

0.65 

3.00 

0.65 

3.00 

26 

0.65 

3.00 

0 . 65 

3.00 

27 

0.65 

3.00 

0.65 

3.00 

28 

0 . 65 

3.00 

0 , 65 

3.00 

29 

0,65 

3.00 

0.65 

3,00 

30 

0 , 65 

3.00 

0.65 

3.00 

31 

«*«*«« 

♦ *** 

0 . 65 

3.00 


JUN JUL 


DTI.R 

TCRT 

DTLR 

TCRT 

0.65 

3,00 

0.65 

0.75 

0.65 

3.00 

0,65 

0.75 

0.65 

3,00 

0 . 65 

0.7? 

0.65 

3.00 

0.65 

0.75 

0.65 

3 . 0(1 

0,65 

0.75 

0.65 

3.00 

0.65 

0.75 

0.65 

3.00 

0.65 

0.75 

0,65 

3.00 

0.65 

0.75 

0.65 

3.00 

0.65 

0.75 

0 . 65 

3.00 

0.65 

0.75 

0.65 

3.00 

0.65 

0.75 

0.65 

3.00 

0.6S 

0,75 

0.65 

3,00 

0.65 

0,75 

0.65 

3.00 

0.65 

0.75 

0.65 

3.00 

0.65 

0.75 

0.65 

2.00 

0.65 

0.75 

0,65 

2.00 

0 . 65 

0 . 75 

0.65 

2.00 

0,65 

0.75 

0.65 

2.00 

0,65 

0.75 

0 . 65 

2,00 

0.65 

0.75 

0,65 

2,00 

0.65 

0,75 

0.65 

2.00 

0.65 

0.75 

0.6? 

2.00 

0.65 

0.7? 

0.65 

2.00 

0.65 

0,75 

0.65 

2.00 

0 . 65 

0.75 

0.65 

2.00 

0.65 

0.75 

0.65 

2.00 

0.65 

0.75 

0.65 

2.00 

0.65 

0,75 

0 . 65 

2.00 

0.65 

0.7? 

0 . 65 

2.00 

0.65 

0.75 
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0.65 

0,7? 


Figure 27. (Continued) 
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LAPSE RATE(DTl.R)> CRITICAI. TEHPERA1 lIRE ( TRKT ) 



RANGO-HARTINEC MODEL 

KDR DISCHHA ^ASTN 

YEAR* 

1974 




DATA 

FOR ZONE C 







DAY 

APR 


MAY 


JUN 


JIJI. 



DTl.R 

TORT 

im.R 

TORT 

DIl.R 

rORT 

DTl.R 

TORT 

1 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

2 

0.6S 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

3 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0 . 65 

0,75 

4 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

S 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

6 

o.6;> 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

7 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0 . 65 

0.75 

8 

0 . 65 

3.00 

0.65 

3.00 

0 . 65 

3.00 

0.65 

0.75 

9 

0.65 

3.00 

0.65 

3.00 

0.65 

3 . 00 

0.65 

0.75 

10 

0.63 

3.00 

0.65 

3.00 

0 . 65 

3.00 

0.65 

0.75 

11 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

12 

0.65 

3 . 00 

0.65 

3.00 

0 . 65 

3.00 

0.65 

0,75 

13 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0.65 

0.75 

14 

0.65 

3.00 

0.65 

3.00 

0 . 65 

3.00 

0.65 

0.75 

IS 

0.65 

3.00 

0.65 

3.00 

0.65 

3.00 

0 . 65 

0.75 

16 

0.65 

3.00 

0.65 

3.00 

0 . 65 

2.00 

0.65 

0.75 

17 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

18 

0.65 

3.00 

0.65 

3 . 00 

0.65 

2.00 

0.65 

0.75 

19 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0 . 65 

0.75 

20 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

21 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

22 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

23 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0 . 65 

0.75 

24 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0,65 

0.75 

25 

0.65 

3.00 

0.65 

3 . 00 

0.65 

2.00 

0,65 

0.75 

26 

0.65 

3.00 

0.65 

3.00 

0.65 

2,00 

0.65 

0.75 

27 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0 . 65 

0.75 

28 

0 . 65 

3.00 

0.65 

3.00 

0.65 

2.00 

0.65 

0.75 

29 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0,65 

0.75 

30 

0.65 

3.00 

0.65 

3.00 

0.65 

2.00 

0 . 65 

0.75 

31 

««*««« 

«««« 

0.65 

3.00 

««***« 

««** 

0.65 

0.75 


DAILY TEHP IN DtGRfE-DAYSUiD) fINPUT PRFCIP < PKLC) f SNOW COyKRFD AREA IN *<S(;A 


RANGO-MARI INEC MODEL FOR DISCHMA BASIN 
DATA FDR ZONE A 


YEAR= 19?A 


1 

2.05 

0.19 

0 , 080 

1,15 

0.21 

0 , 800 

5,10 

X . 49 

0. 230 

9.90 

0.0 

0 . 030 

2 

1,90 

0 . 06 

0 . 880 

0.0 

0.22 

0 . 795 

4 . 05 

0.0 

0.215 

7.90 

0.57 

0.025 

3 

2.65 

0.0 

0 . 875 

0,00 

0.03 

0,795 

9,90 

0,0 

0. 200 

8.50 

0.0 

0.025 

4 

4 . y.i 

0.0 

0.875 

2,35 

0,0 

0,790 

11.80 

0.0 

0. IBS 

7,50 

0.89 

0,020 

5 

1 .40 

0.04 

0.B75 

0.0 

0 . 45 

0.785 

11.60 

0,0 

0.179 

10,25 

0.0 

0.0J8 

6 

0. 75 

0.34 

0.H75 

0.0 

0.84 

0 . 780 

6.35 

0,37 

0.170 

10.45 

0.0 

0.015 

7 

1.35 

0.0 

0.070 

0.0 

0,09 

0 .7 75 

1,45 

0,02 

0 . 160 

5,00 

1 . 03 

0.010 

8 

1 .45 

0.01 

0.H70 

1 ,70 

0.01 

0.770 

2.90 

0,06 

0.150 

4.75 

0,03 

0.005 

9 

3,3 5 

0.0 

0.865 

0.95 

0.0 

0.765 

2.35 

0.07 

0.140 

V, 10 

0.0 

0.0 

10 

1 .65 

0.0 

0.865 

2.65 

0,0 

0,760 

0,0 

0.41 

0.135 

8.75 

0.74 

0.0 

11 

1.60 

0.0 

0.865 

1.75 

0,27 

0,760 

0,0 

0.85 

0.125 

10.95 

0.21 

0.0 

12 

2 . 55 

0.0 

0.860 

1.70 

0.98 

0,755 

0,0 

1 .06 

0.115 

14,25 

0.0 

0.0 

13 

4.35 

0.0 

0.860 

B.30 

0.0 

0 . 745 

0,15 

1 .72 

0,110 

14,20 

0.0 

0.0 

14 

0.45 

0.10 

0 . 855 

4.25 

0,02 

0,735 

4 > 65 

0.03 

0.105 

11,50 

0.20 

0.0 

15 

0.0 

0.03 

0.850 

0.90 

0.27 

0.725 

7.95 

0.0 

0.100 

10.00 

3.08 

0.0 

16 

0.0 

0.53 

0 . 850 

4 , 30 

0.0 

0.717 

7,95 

0.66 

0.095 

12.55 

0.0 

0.0 

17 

0.0 

0.13 

0.845 

4.80 

0.0 

0,700 

8,15 

0.0 

0.090 

8.15 

0.52 

0.0 

18 

0.0 

0.07 

0,840 

5.03 

0,0 

0.680 

4,50 

0,70 

0.085 

4.30 

2,96 

0.0 

19 

0.0 

0.02 

0.835 

6.90 

0.0 

0.660 

3.95 

1 .20 

0 . 080 

3 . 00 

1,02 

0.0 

20 

0.0 

0.0 

0.835 

6.15 

0.0 

0 . 640 

7.60 

0.0 

0.075 

1.95 

0,22 

0.0 

21 

0.0 

0.0 

0.830 

6.30 

0.26 

0.600 

7.55 

0.0 

0.070 

4.40 

0.41 

0,0 

22 

0.0 

0.03 

0 . 830 

4.65 

0.0 

0 . 560 

7.65 

1.41 

0.065 

5.30 

0.37 

0.0 

23 

0.20 

0.0 

0.825 

0.35 

3.2'3 

0.520 

8.75 

0.65 

0 . 060 

9.40 

0.0 

0.0 

24 

0.0 

0.26 

0.825 

0.0 

0.4B 

0.480 

5,10 

1.59 

0.055 

12.65 

0.0 

0.0 

25 

0.0 

0.59 

0.820 

1 .15 

0.38 

0.440 

7.90 

0.09 

0.050 

8.80 

1.35 

0.0 

26 

0.0 

0.31 

0.820 

4.25 

0 , 03 

0.400 

8.70 

0.0 

0.045 

9.10 

0.17 

0.0 

27 

0.0 

0.02 

0.815 

6.60 

0.0 

0.370 

5,95 

2.71 

0.040 

13.65 

0.0 

0.0 

28 

1 ,95 

0,0 

0.810 

4.35 

0.52 

0.340 

6.20 

6.83 

0,035 

13.10 

0.21 

0.0 

29 

2.90 

0.02 

0.805 

5.20 

0.97 

0.310 

6.05 

1 .33 

0 . 035 

15.20 

0,0 

0.0 

30 

1.55 

0.13 

0.800 

7.35 

0.0 

0.280 

5.90 

1.82 

0.030 

15,35 

0.0 

0.0 

31 

****** 

***** 

***** 

8. IS 

0.02 

0.250 

****** 


***** 

13.35 

0,0 

0.0 
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BAIl.Y TEMP IN DESREE-DAYS ( BD) * INPUT PRECIP ( PREC > f SNOW COVEREH AREA IN Z<SCA;:> 


RANGO-MARTINEC MOJ5EL FOR DXSCHHA BASIN YEAR= 1974 

DATA FOR ZONE B 


DAY APR MAY JUN JUl. 

DD PREC SCA DD PREC SCA DD PREC SCA DD PREC SCA 


1 

OtO 

0,19 

0.930 

0.0 

0.21 

0.900 

2.30 

1.49 

0.800 

7,10 

0.0 

0.510 

2 

0.0 

0.06 

0,930 

0.0 

0.22 

0.900 

1 .23 

0.0 

0.795 

5.10 

0.57 

0.500 

3 

0.0 

0.0 

0,930 

0.0 

0.03 

0.900 

7,10 

0.0 

0.790 

5 . 70 

0,0 

0.490 

4 

2.1*.) 

0.0 

0.930 

0.0 

0.0 

0,900 

9.00 

0.0 

0.785 

4.70 

0.89 

0,480 

5 

0.0 

0.04 

0.930 

0.0 

0.45 

0.900 

8.80 

0.0 

0.776 

7,45 

0.0 

0.464 

6 

0.0 

0..I4 

0,925 

0,0 

0.84 

0.895 

3.55 

0.37 

0.770 

7.65 

0.0 

0.450 

7 

0.0 

0.0 

0.925 

0,0 

0,09 

0.895 

0.0 

0.02 

0.770 

2.20 

1,03 

0.440 

8 

0.0 

0.01 

0,925 

0.0 

0.01 

0 . 893 

0,10 

0.06 

0.750 

1.95 

0.03 

0.430 

9 

0.3S 

0.0 

0.925 

0.0 

0.0 

0.890 

0.0 

0.07 

0.740 

6.30 

0.0 

0,415 

10 

0.0 

0.0 

0 . 925 

0.0 

0.0 

0,890 

0,0 

0.41 

0.735 

5.95 

0.74 

0.400 

11 

0.0 

0.0 

0.920 

0.0 

0,27 

0 . 885 

0.0 

0,85 

0.725 

8. 15 

0.21 

0.385 

12 

0.0 

0,0 

0.920 

0,0 

0.98 

0.885 

0,0 

1.06 

0.715 

11.45 

0.0 

0.370 

13 

] .55 

0,0 

0.920 

5.50 

0.0 

0.880 

0.0 

1.72 

0.705 

11.40 

0.0 

0.360 

14 

0.0 

0,10 

0.920 

1 .45 

0.02 

0.880 

1 . 85 

0.03 

0.695 

8.70 

0.20 

0,350 

IS 

0.0 

0.03 

0.920 

0.0 

0.27 

0,880 

5,15 

0.0 

0.685 

7.20 

3.08 

0.340 

16 

0.0 

0 . 53 

0.915 

1.50 

0.0 

0.877 

'.>.15 

0.66 

0,670 

9.75 

0.0 

0.330 

17 

0.0 

0.13 

0.915 

2,00 

0.0 

0.875 

5.35 

0.0 

0.660 

5,35 

0,52 

0 . 320 

18 

0,0 

0.07 

0.915 

2.25 

0.0 

0,870 

1.70 

0.70 

0.650 

1.50 

2.96 

0.305 

19 

0.0 

0,02 

0.915 

4.10 

0.0 

0.865 

1.15 

1 .20 

0,640 

0 1 20 

1.02 

0.290 

20 

0.0 

0.0 

0.915 

3,35 

0.0 

0.860 

4.80 

0.0 

0,630 

o.o' 

0.22 

0.280 

21 

0.0 

0.0 

0.910 

3.50 

0,26 

0,855 

4,75 

0.0 

0.620 

1.60 

0.41 

0.270 

22 

0.0 

0.03 

0,910 

1 ,8'o 

0,0 

0.850 

4.85 

1.41 

0,610 

2.50 

0.37 

0.260 

23 

0.0 

0.0 

0.910 

0.0 

3,73 

0,845 

5.95 

0.65 

0.600 

6.60 

0.0 

0.245 

24 

0,0 

0,26 

0.910 

0,0 

0,48 

0,840 

2.30 

1.59 

0.590 

9.85 

0.0 

0.230 

25 

0.0 

0.59 

0.910 

0,0 

0.38 

0,835 

5.10 

0.09 

0.580 

6,00 

1.35 

0 . 220 

26 

0.0 

0.31 

0.905 

1 ,45 

0.03 

0,830 

5.90 

0.0 

0,565 

6 . 30 

0.17 

0.210 

27 

0.0 

0.02 

0,905 

3.80 

0,0 

0.825 

3.15 

2.71 

0 . 550 

1 0 . 85 

0.0 

0,195 

28 

0.0 

0.0 

0.905 

1.55 

0.52 

0.820 

3.40 

0,83 

0.540 

10.30 

0.21 

0.180 

29 

0 . 10 

0.02 

0,900 

2.40 

0,97 

0.815 

3.25 

1 .33 

0 . 530 

12.40 

0,0 

0,170 

30 

0.0 

0.13 

0.900 

4.55 

0,0 

0.810 

3.10 

1 .82 

0,520 

12,55 

0.0 

0.160 

31 

«*«««* 

***** 

***** 

5.35 

0.02 

0.800 

****** 

***** 

***** 

10.55 

0.0 

0.155 


DAILY TEMP IN DEGREE-DAYS< DD) f INPUT PRECIP < PREC ) f SNOW COVERED AREA IN Z(SCAt;) 

RANRO-MAR riNEC HOPEI. FOR DISCHMA BASIN YEAR= 1974 

DATA FOR ZONE C 


DAY APR MAY JUN 

DD PREC SCA DP PREC SCA DD PREC SCA DD PREC 


1 

0.0 

0.19 

0.850 

0.0 

0.21 

0,805 

0.0 

1.49 

0.790 

4.63 

0,0 

0.790 

2 

0,0 

0.06 

0.845 

0,0 

0.22 

0.805 

0.0 

0.0 

0.790 

2.63 

0.57 

0.790 

3 

0.0 

0.0 

0.845 

0.0 

0.03 

0.805 

4.63 

0.0 

0.790 

3.23 

0.0 

0.790 

4 

0.0 

0.0 

0.840 

0.0 

0.0 

0,805 

6.53 

0.0 

0,790 

2.23 

0,89 

0.795 

5 

0.0 

0.04 

0.840 

0,0 

0,45 

0.805 

6.33 

0.0 

0.786 

4.98 

0.0 

0 . 797 

6 

0.0 

0.34 

0.835 

0.0 

0.84 

0.805 

1.08 

0.37 

0.785 

5.18 

0.0 

0.795 

7 

0.0 

0.0 

0.835 

0.0 

0.09 

0.805 

0.0 

0,02 

0.785 

0.0 

1.03 

0,790 

8 

0,0 

0.01 

0 . 830 

0.0 

0.01 

0.805 

0.0 

0.06 

0.785 

0.0 

0.03 

0.785 

9 

0.0 

0.0 

0,830 

0.0 

0,0 

0.805 

0.0 

0.07 

0 . 780 

3.83 

0.0 

0 , 780 

10 

0,0 

0.0 

0 . 830 

0,0 

0.0 

0.805 

0.0 

0.41 

0.780 

3.48 

0.74 

0.775 

11 

0.0 

0.0 

0.825 

0.0 

0,27 

0.805 

0.0 

0.85 

0.V80 

5.68 

0.21 

0 . 770 

12 

0.0 

0.0 

0,825 

0.0 

0,98 

0.805 

0.0 

1.06 

0.785 

8.98 

0.0 

0.760 

13 

0.0 

0.0 

0.820 

3.03 

0.0 

0.805 

0,0 

1 .72 

0,785 

8,93 

0,0 

0.750 

14 

0,0 

0.10 

0.820 

0.0 

0,02 

0.805 

0.0 

0.03 

0 . 785 

6.23 

0.20 

0.740 

IS 

0.0 

0.03 

0.820 

0,0 

0.27 

0.805 

2.68 

0.0 

0,785 

4.73 

3.08 

0.730 

16 

0.0 

0,53 

0.815 

0.0 

0.0 

0.804 

2.68 

0.66 

0 . 785 

7.28 

0,0 

0.720 

17 

0.0 

0.13 

0.815 

0.0 

0.0 

0.800 

2.88 

0.0 

0.785 

2.88 

0.52 

0.710 

18 

0.0 

0.07 

0,810 

0.0 

0.0 

0.800 

0.0 

0.70 

0 . 785 

0.0 

2.96- 

0.700 

19 

0.0 

0.02 

0,810 

1.63 

0.0 

0,800 

0.0 

1.20 

0.785 

0.0 

1,02 

0.690 

20 

0.0 

0.0 

0,810 

0.88 

0.0 

0 . 800 

2 . 33 

0.0 

0,785 

0,0 

0.22 

0,675 

21 

0.0 

0.0 

0.805 

1 .03 

0.26 

0.800 

2.28 

0.0 

0,785 

0.0 

0.41 

0.660 

22 

0.0 

0.03 

0.805 

0.0 

0.0 

0 . 800 

2.38 

1.41 

0,785 

0.03 

0.37 

0.645 

23 

0.0 

0.0 

0.805 

0.0 

3,23 

0.800 

3.48 

0.65 

0,785 

4.13 

0.0 

0 . 630 

24 

0.0 

0.26 

0.805 

0.0 

0.48 

0.800 

0.0 

1 .59 

0.785 

7.38 

0.0 

0.615 

25 

0.0 

0.59 

0.805 

0,0 

0.38 

0.800 

2.63 

0.09 

0 , 785 

3.53 

1 .35 

0.600 

26 

0.0 

0.31 

O.BOS 

0.0 

0.03 

0,795 

3.43 

0.0 

0.785 

3.83 

0,17 

O.SBS 

27 

0.0 

0.02 

0.805 

1.33 

0.0 

0 . 795 

0.68 

2.71 

0.705 

8.38 

0.0 

0.570 

28 

0.0 

0,0 

0.805 

0.0 

0.52 

0.795 

0,93 

0.83 

0.785 

7.83 

0.21 

0.560 

29 

0.0 

0.02 

0.805 

0,0 

0,97 

0.795 

0,78 

1.33 

0.785 

9.93 

0,0 

0 . 550 

30 

0.0 

0,13 

0.805 

2.08 

0.0 

0.795 

0.63 

1.82 

0.790 

10.08 

0.0 

0.540 

31 

****** 

«*««« 

*»«»» 

2.88 

0,02 

0 . 790 

*«**»« 

*»»«« 

»««** 

8. 08 

0.0 

0.530 
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DAILY 8N0U DEPTH HY ZONE IN CH . H*«2 ( DPT H > » DAILY COMPUTED PRECIP CONTRIBUT INK T(1 RUNOEFCRPRE) 

RANGlT-HARTINEC MODEL FOR DISCHHA BASIN 'YEAR» 1974 
DATA FOR ZONE A 


DAY APR MAY JUN JUL 



DPTH 

CPRE 

DPTH 

CPRE 

DPTH 

CPRE 

DPTH 

CPRE 

1 

0,723 

0.0 

0.415 

0.0 

1.734 

1.147 

0.143 

0.0 

2 

0.470 

0.0 

0.0 

0.0 

0,434 

0.0 

0,479 

0.570 

3 

0.940 

0.031 

0.001 

0.0 

0.990 

0,0 

0.117 

0.0 

4 

1 ,734 

0,0 

1.149 

0.V41 

1 .092 

0.0 

0,973 

0.890 

S 

0.491 

0.0 

0.0 

0.0 

1 ,039 

0.0 

0.103 

0.0 

6 

0.244 

0.0 

0.0 

0,0 

0.847 

0.307 

0.084 

0.0 

7 

0.320 

0.049 

0.0 

0.0 

0.114 

0.0 

1 .038 

1.030 

8 

0.304 

0.0 

0.390 

0.0 

0.21H 

0,0 

0.043 

0,030 

9 

1 .092 

0.001 

0.429 

0.101 

0.14:> 

0.0 

0.0 

0.0 

10 

0,372 

0.0 

1.194 

0,287 

0.0 

0.0 

0.740 

0.740 

11 

0.333 

0.0 

0.400 

0.0 

0.0 

0.0 

0.210 

0.210 

12 

0.878 

0.0 

0.379 

0.0 

0.0 

0.0 

0.0 

0.0 

13 

1.498 

0.0 

3.191 

0.407 

O.OOH 

0.0 

0.0 

0.0 

14 

0.133 

0.0 

1.41V 

0.005 

2,334 

2.109 

0.200 

0.200 

13 

0.0 

0.0 

0.295 

0.0 

2,075 

1 ,477 

3.080 

3.080 

lA 

0.0 

0.0 

1.463 

0.074 

1 . 038 

0 . 440 

0.0 

0.0 

17 

0.0 

0.0 

1 .313 

0.0 

0.347 

0,0 

0.320 

0.520 

18 

0.0 

0.0 

1.344 

0.0 

0,891 

. 0.700 

2.940 

2.940 

1? 

0.0 

0.0 

2.030 

0.0 

1.338 

1 .200 

1.020 

1.020 

20 

0.0 

0.0 

1.77V 

0.0 

0.283 

0.0 

0.220 

0,220 

21 

0.0 

0.0 

1.804 

0.104 

0.244 

0.0 

0.410 

0.410 

22 

0.0 

0.0 

1,173 

0.0 

1 .639 

1.410 

0,370 

0.370 

23 

0,092 

0.014 

0.0B3 

0,0 

0.913 

0.430 

0.0 

0.0 

24 

0,0 

0.0 

0,0 

D.O 

1 .730 

1.590 

0.0 

0.0 

25 

0 . 0 

0.0 

0.22B 

0.0 

0.288 

0,090 

1 .330 

1 .330 

24 

0,0 

0 . 0 

1 .932 

1 . 146 

0.194 

0.0 

0.170 

0,170 

2 2 

0,0 

0.0 

2.470 

1 .371 

2.829 

2.710 

0,0 

0.0 

2B 

0 .S29 

0.167 

1 . 009 

0.J43 

0.939 

0.830 

0.210 

0.210 

29 

t . 052 

0.0 

1 .39r. 

0.449 

1 .434 

1 . 330 

0.0 

0.0 

,?0 

') .T5V 

0 . 0 

0 . 927 

0.0 

1 . 909 

1 .820 

0.0 

0.0 

n 

*»**$ 


0 .9 J2. 

0 . 0 1 r. 



0.0 

0.0 


DAILY SNOW DEPTH BY ZONE IN CM . M**2 < DPTH ) » DAILY COMPUTED PRECIP COHTRIBUTIHB TO RUNOFF < CPRf ) 

RANGO-MARTINEC MODEL FUR DISCHHA BASIN YEAR= 1974 

DATA FOR ZONE B 


day APR may JUN JUL 



DPTH 

CPRE 

DPTH 

CPRE 

DPTH 

CPRE 

DPTH 

CPRE 

1 

0.0 

0.0 

0.0 

0.0 

0.918 

0.0 

1.990 

0.0 

2 

0.0 

0.0 

0.0 

0.0 

0,423 

0.128 

1.971 

0.570 

3 

0.0 

0.0 

0.0 

0.0 

2.983 

0.182 

1.535 

0.0 

4 

0.814 

0.018 

0,0 

0,0 

3,531 

0,0 

2.130 

0.890 

5 

0.0 

0.0 

0.0 

0.0 

3.413 

0.0 

1.900 

0,0 

6 

0,0 

0.0 

0,0 

0.0 

1 . 450 

0.085 

1 .892 

0.0 

7 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.541 

1.030 

8 

0,0 

0.0 

0,0 

0.0 

0 , 034 

0.0 

0.490 

0.030 

9 

0.138 

0,0)0 

0.0 

0.0 

0.0 

0.0 

1.437 

0.0 

10 

0.0 

0.0 

0,0 

0,0 

0.0 

0.0 

2.048 

0.740 

11 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

1.935 

0.210 

12 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

2,329 

0.0 

13 

0.589 

0.020 

2.473 

0.297 

0.0 

0.0 

2.254 

0.0 

14 

0.0 

0.0 

0.57V 

0,0 

0.441 

0.0 

1.874 

0.200 

IS 

0.0 

0.0 

0,0 

0.0 

2.573 

0.810 

4.424 

3.080 

14 

0.0 

0.0 

0.473 

0.083 

2.927 

1.204 

1.749 

0.0 

17 

0.0 

0.0 

0.898 

0,112 

1.764 

0.0 

1,441 

0 , 520 

18 

0.0 

0.0 

1 ,010 

0.131 

0,551 

0.0 

3,211 

2.940 

19 

0.0 

0,0 

1.472 

0.078 

0.347 

0.0 

0.031 

0.0 

20 

0.0 

0,0 

1.295 

0.0 

2.214 

0.703 

0.0 

0.0 

21 

0.0 

0.0 

1.383 

0,038 

1 .471 

0.0 

1 .288 

1 .051 

22 

0.0 

0.0 

0 , 704 

0.0 

2.888 

1.410 

0 . 995 

0.438 

23 

0.0 

0.0 

0.0 

0.0 

2.434 

0.450 

0.889 

0.0 

24 

0.0 

0.0 

0.0 

0.0 

2.267 

1.590 

1,245 

0.0 

25 

0.0 

0.0 

0.0 

0.0 

1 .548 

0.090 

2,075 

1.350 

24 

0,0 

0.0 

0.540 

0.0 

1.445 

0.0 

0.897 

0.170 

27 

0.0 

0.0 

1.708 

0.299 

3.575 

2.710 

1.143 

0.0 

28 

0.0 

0.0 

0.570 

0.0 

1.747 

0.830 

1.229 

0.210 

29 

0,039 

0.0 

0.879 

0.0 

2.190 

1.330 

1 ,159 

0.0 

30 

0.0 

0.0 

2,045 

0,389 

2;425 

1,820 

1 .104 

0.0 

31 

*«««« 

**««« 

2.300 

0,375 

«*«*« 

***** 

0.899 

0.0 
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DAILY SNOW DfPTH BY ZONF IN CM.M**2<»PTH) 


DAILY COMPUTED PRPniF CONTRIDUTINK TO RUNOFF <CFRE ) 



RANGO- 

HARTtNFU M«?Jje:L 

FUK 

DJCGCHHA BASIN 

YEAR 

~ 1974 




DAI A FOR ZONF C 







DAY 


APR 


NAY 

vlUN 

JUl 


DPTH 

CPRE 

npTH 

i:pRE 

DPTH 

r.PRE 

DPTH 

CPRE 

1 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

2.544 

0.534 

2 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2,014 

0,873 

3 

0.0 

0.0 

0.0 

0.0 

2.313 

0.486 

1.774 

0.373 

4 

0.0 

0.0 

0.0 

0.0 

3.263 

0.685 

2.053 

1 .080 

S 

0.0 

0.0 

0.0 

0.0 

3.163 

0.677 

2.181 

0.0 

6 

0.0 

0.0 

0.0 

0.0 

0 . 422 

0.0 

2.263 

0.0 

7 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

8 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

9 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1 .874 

0.233 

10 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.221 

0.740 

11 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.614 

0.210 

12 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3.752 

0.0 

13 

0.0 

0.0 

1.361 

0.265 

0.0 

0.0 

3.682 

0.0 

14 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2,734 

0.200 

15 

0.0 

0.0 

0.0 

0.0 

1.338 

0.288 

4.977 

3.080 

lA 

0.0 

0.0 

0.0 

0.0 

1.998 

0.948 

2.881 

0.0 

17 

0.0 

0.0 

0.0 

0.0 

1.438 

0.309 

1.643 

0.520 

18 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

19 

0.0 

0.0 

0,731 

0.146 

0.0 

0.0 

0.0 

0.0 

20 

0.0 

0.0 

0.394 

0.079 

1.163 

0.250 

0,0 

0.0 

21 

0.0 

0.0 

0.369 

0.0 

1.138 

0.245 

0.0 

0.0 

22 

0.0 

0.0 

0.0 

0.0 

2.5S1 

1.619 

0.009 

0.0 

23 

0.0 

0.0 

0.0 

0.0 

2.014 

0.650 

2.269 

0.840 

24 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3.538 

1.044 

25 

0.0 

0.0 

0.0 

0.0 

1.403 

0.372 

2.513 

1.350 

26 

0.0 

0.0 

0.0 

0.0 

1.404 

0.060 

1.401 

0.170 

27 

0.0 

0.0 

0,596 

0.122 

0.265 

0.0 

2.626 

0.0 

28 

0.0 

0.0 

0.0 

0.0 

0 . 363 

0.0 

2.620 

0.210 

29 

0.0 

0.0 

0.0 

0.0 

0.304 

0.0 

3,002 

0.0 

30 

0.0 

0.0 

0.934 

0.191 

0.247 

0.0 

2.992 

0.0 

31 

***** 

***** 

1.022 

0.0 

««*«« 

***** 

2.354 

0.0 


Figure 27. (Continued) 
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DAIl.Y COMPUTED AND ACTUAL SNOHMfcLT RUNOFF DATA 
RANGO-MARrlNEC MODEL EUR DISCHMA BASIN YEAR- 1974 


DAY APR NAY JUN JUL 


COMPUTED 

ACTUAL. 

COMPUTED 

ACTUAL. 

COMPUTED 

ACTUAL 

COMPUTED 

ACTUAL 

1 

0.564 

0.600 

0.453 

0.800 

3.941 

4.510 

7.367 

5.620 

2 

0.571 

0.630 

0.441 

0.760 

3.808 

3.780 

7.323 

6.680 

3 

0.584 

31.-6ZQ 

IL.,421 

0,760 

4.119 

4.020 

7.14Z 

6.550. 

4“ 

0.689 

0. 710 

0.427 

0.770 

5.116 

4.850 

7.024 

6.230 

5 

0.786 

0.760 

0.434 

0,720 

6.163 

5.830 

7.026 

6.060 

6 

0.757 

0.750 

0.414 

0.760 

6.513 

6.330 

6.994 

6.180 

7 

0.732 

0.800 

0.396 

0 . 790 

5.900 

4.920 

6.762 

6.200 

8 

0.716 

0.840 

0.391 

0.870 

5.066 

3.990 

6.140 

5.290 

9 

0.733 

0.890 

0.396 

0.970 

4.383 

3.630 

5. -710 

5.210 

10 

0.751 

0.950 

0.413 

1.100 

3.801 

3.260 

5.784 

6.610 

11 

0.737 

0.960 

0.434 

1.140 

3.307 

2 . 920 

5. -^92 

6.520 

12 

0 . 73S 

0.990 

0.440 

1.120 

2.894 

2.670 

6.323 

6.650 

13 

0.817 

1 .070 

0.695 

1.230 

2.548 

2.430 

6.743 

6.840 

14 

0.873 

1.230 

1.111 

1.470 

2.482 

2.540 

6.950 

7.860 

15 

0.814 

1.160 

1.153 

1 . 550 

2,991 

2.840 

7.649 

8.720 

16 

0.756 

1.010 

1 . 199 

1.850 

3.879 

2.930 

8.245 

6.600 

17 

0.705 

0.920 

3 .390 

2.200 

4.464 

3.1'7-0 

7.910 

7.160 

18 

0.659 

0.850 

1.619 

2.480 

4.418 

3.670 

7,752 

7.140 

19 

0.618 

0.810 

1.999 

2.840 

4.122 

3.410 

7.278 

5.340 

20 

0.581 

0 . 780 

2.439 

2.930 

4.194 

3.570 

6.234 

4.540 

21 

0.547 

0.770 

2.784 

3.0'30 

4.434 

4.110 

5.541 

4.480 

22 

0.517 

0.770 

2,957 

3.510 

4,980 

5.440 

5.129 

4,120 

23 

0.492 

0.780 

2.779 

3.270 

5.760 

5.280 

4 .8 72 

4.060 

24 

0,470 

0,800 

2.45S 

2.720 

6.159 

S.590 

4.923 

4.150 

25 

0.447 

0.760 

2.188 

2.460 

6,240 

4.810 

5 . 205 

5.080 

26 

0,426 

0.750 

2.141 

2.400 

6.136 

5.010 

5.258 

4.160 

27 

0.407 

0.740 

2.493 

2.630 

6.594 

6.100 

5.144 

4.310 

28 

0 , 408 

0 , 740 

2,776 

2.830 

7.015 

5,610 

5 ,188 

4.530 

29 

0.433 

0.800 

2.804 

2.700 

6.972 

5.930 

5.250 

4.390 

30 

0.452 

0.840 

•5,111 

3.040 

7,197 

5.610 

5.306 

4.440 

31 

t*t**tt 

*«««««* 

3.652 

4.050 



5 , 265 

4.810 


TOTAL ACTUAL SrREAMFLOU= 390.^141 

MEAN ACTUAL STREAMFLOU= 3,1985 


TOTAL COMPUTED VOL UHE= 40A.6025 

MEAN COMPlITFn UDLUME= 3.3328 


eOOUNFSS OF FIT MEASURF= 


0,9079 


percent SFAEllNAI. nTFFFRENr,E= -4.1,993 

END OF DATA 
READY 


Figure 27. (Continued) 
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APPENDIX A 

DETAILED PROGRAM FLOW CHARTS 


Figure A— 1 , 
Figure A— 2. 
Figure A— 3. 
Figure A— 4. 
Figure A— 5. 
Figure A— 6. 
Figure A~7. 
Figure A— 8. 
Figure A— 9. 


Flow chart for subroutines of the snowmelt -runoff model program. 

Flow diagram for DRVSNO, the main component of the snowmelt-runoff model. 
Flow diagram for subroutine READIN. 

Flow diagram for subroutine LAPSE. 

Flow diagram for subroutine PRESNO. 

Flow diagram for subroutine RUNOFF, 

Flow diagram for subroutine GOOD. 

Flow diagram for subroutine lOMTH. 

Flow diagram for subroutine PLOTR. 
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On 



Figure A— 1 . Flow chart for subroutines of the snowmelt -runoff model program. 










Figure A— 2. Flow diagram for DRVSNO, the main component of the snowmelt-runoff model. 
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INITIALIZE 
END OF DATA 
FLAG 


/ LAPSE 
BATE DATA 
AVAILABLE 
V 7 


MODEL ^ 
RUN NUMBER 

V =17 


WRITE 

MESSAGE 


READ 

CLIMATOLOGICAL 
NAMELIST INPUT 
DATA/C LIM/ 


READ 

BASIN DEPENDENT 
NAMELIST INPUT 
DATA/BASE/ 


WRITE RUNOFF 
COEFFICIENTS, 
DEGREE-DAY 
FACTORS AND 
LAPSE RATE DATA 


/PRINT \ 
ADDITIONAL 
INPUT DATA 
V 7 ^ 


END OF DATA 
7 


READ 

PROGRAM OPTIONS 
NAMELIST INPUT 
DATA/OPT/ 


END OF DATA 
7 


WRITE BASIN 
HEADER INFO& 
PROGRAM 
OPTIONS 


PRINT 

RECESSION CO- 
EFFICIENTS FAC- 
TORS & AREA IN 
EACH ZONE 


SET 

END OF DATA 
FLAG 


TERMINATE 

READIN 


Figure A— 3. Flow diagram for subroutine READIN. 


I 














Figure A— 4. Flow diagram for subroutine LAPSE. 
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Figure A— 5. Flow diagram for subroutine PRESNO. 
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Figure A— 6. Flow diagram for subroutine RUNOFF. 
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Figure A— 7. Flow diagram for subroutine GOOD. 
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Figure A— 8. (Continued) 
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Figure A— 9. Flow diagram for subroutine PLOTR- 
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APPENDIX B 


FORTRAN Source Listing for the SRM Program and Subroutine PRPLOT with Compilation on the IBM 3081 , 
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STAPT 

XX 

XX 

XXXXXXXXXXXX 

XXXXXXXXxX 

xxxxxxxxxxx 

XX 

XX 

XXXXXXXXXX 

XXXXXXXXXXXX 

XXX 

STAfiT 

XX 

XX 

xxxxxxxxxxx 

XXXXXXXXXXXX 

XXXXXXXXXXXX 

XXX 

XXX 

XXXXXXXXXXXX 

XXXXXXXXXXX 

xxxx 

STAHT 

XX 

XX 

XX 

XX 

XX 

XX 

XX 

XX 

xxxx 

xxxx 

XX XX 

XX 

XX 

XX XX 

START 

XX 

XX 


XX 

XX 


XX 

XX 

XX XX 

XX XX 

XX 


XX 

XX XX 

START 

XX 

XX 


XX 

XX 


XX 

XX 

XX XXXX XX 

XXX 


XX 

XX XX 

S’AST 

XJ^XX 


XA 

XX 


XXXXXXXXXXXX 

XX XX 

XX 

xxxxxxxxx 


XX 

xxxxxxxxxxx 

start 

xxxy 


XX 

XX 

XXXXX 

XXXXXXXXXXX 

XX 

XX 

xxxxxxxxx 


XX 

XXXXXXXXXXXX 

ST ART 

XX 

XX 


XX 

XX 

XXXXX 

XX 

XX 

XX 

XX 

XXX 


XX 

XX 

START 

XX 

XX 


XX 

X A 

XX 

XX 

XX 

XX 

XX 

XX 


XX 

XX 

START 

XX 

XX 


XX 

XX 

XX 

XX 

XX 

XX 

XX 

XX XX 


XX 

XX 

START 

Xa 

XX 


XX 

XX: 

XXXXXXXXXX 

XX 

XX 

XX 

XX 

XXXXXXXXXXXX 


XX 

XX 

S TART 

XX 

XX 


XX 

XX xxxxxxxx 

XX 

XX 

XX 

XX 

XXXXXXXXXX 


XX 

XX 


START 

XX 

XXXXXXXXXXXX 

XXXXXXXXXXXX 

XX 

XXXXXXXXXXXX 

XX 

XXXXXXXXXX 

START 

XXX 

XXXXXXXXXXXX 

XXXXXXXXXxXX 

XXX 

xxxxxxxxxxx 

XXX 

XXXXXXXXXXXX 

SI ART 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX XX 

5 1 ART 

XX 

XX 

XX 

XX 


XX 

XX 

XX 

START 

XX 

XX 

XX 

XX 


XX 

XX 

XX 

S’ART 

XX 

xxxxxxxxx 

xxxxxxxxx 

XX 


XX 

XX 

XXXXXXXXXXX 

STtRT 

XX 

XXXXXXXXXX 

XXXXXXXXXX 

XX 


XX 

XX 

XXXXXXXXXXXX 

STAfiT 

x< 

XX 

XX 

XX 


XX 

XX 

XX XX 

START 

XX 

XX 

XX 

XX 


Xa 

XX 

XX XX 

S' ART 

XX 

XX 

XX 

XX 


XX 

XX 

XX XX 

start 

XXXXXXXXXX 

xxxxxxxx xxxx 

XXXXXXXXXXXX 

XXXXXXXXXX 


XX 

XXXXXXXXXX 

XXXXXXXXXXXX 

START 

XXXxxXXXXX 

XXXXXXXX XXX 

xxxxxxxxxxx 

XXXXXXXXXX 


XX 

XXXXXXXXXX 

XXXXXXXXXX 


SI ARi 

XXXXXXXXXXXX 


.\<xxxx/x>:x 


XXXXXXXX 

XXXXXX X/xXXa 

XXXXXXXXXX 

xxxxxxx 

XXX 

XX 

XX 

START 

XXXXXXXXXXXX 

XXXXXXXXXXXX 

XXXXXXXXxX 

XXXXAXXflAX 

xxxxxxxxxxx 

XXXXXXXXXX 

XXXXXXXXXXXX 

XXX 

XX 

START 

XX 

XX XX 

XX 

XX 

XX 

XX 

XX 

XX 

Xx 

XX 

xxxx 

XX 

SI ART 

XX 

XX aX 

XX 

XX 

XX 


XX 

XX 

XX 

XX 

XX XX XX 

start 

XX 

;<x XX 

XX 

XX 

XX 


XA 

XX 

XX 

XX 

AX 

XX XX 

ST ARI 

XXXXXXNX 

XXXX/X> XXXXX 

AX 

XX 

XX 


XX 

vx 

XX <xxxx:<xaXx 

XX 

XX XX 

START 

XXXXXXXX 

xxxxxxx> <-x 

XX 

XX 

XX 


XX 

XX 

XXXXXXXX 

xxxx 

XX 

XX XX 

START 

X X 

XX x>: 

XX 

XX 

XX 


XX 

XX 

XX 

XX 

XX 

XT XX 

START 

XX 

XX XX 

XX 

XX 

XX 


XX 

XX XX 

XX 

XX 

XX 

XXXX' 

START 

XX 

XX XX 

XX 

XX 

XX 


X X 

XX XX 

XX 

XX 

XX 

XXX 

START 

XX 

XX XX 

xxxxxxxxxx 

X 

xxxx <X XXX 


XX 

XXXXXXXX 

XX 

XX 

XX 

XX 

S 1 ART 

XX 

XX XX 

XXXXXXXXXX 

XXXXXXXX 


XX 

xx.xxxx 

XX 

XX 

XX 

X 


START 

X X X 

XXXXXXXXX 

XXX/.XXXXXX 

XXXXXXXXXXXX 

XXX 

XXXXXXXXXX 

yxxxxxxx 

START 

XXX 

XXXXXXXXXX 

XXXXXXXXXX 

xxxxxxxxxxx 

xxxx 

XXXXXXXXXXXX 

XXXXXXXXXX 

START 

XXX 

XX XX 

XX 

XX 

XX 

XX x< 

XX XX 

XX XX 

START 

XXXXXXXXX 

XX XX 

XX 


xX 

XX XX 

XX 

XX XX 

START 

XXX 

XX XX 

XX 


XX 

XX XX 

XX 

XX XX 

RTA 7 RT 

XXX 

XX XX 

XX 


XX 

XXXXXXXXXXX XXXXXXXXXXX 

XX 

XX XX 

START 

XXX 

XX XX 

XX 


XX 

XXXXXXXXXXXX XXXXXXXXXXX 

XX 

XX XX 

START 


XX XX 

XX 


XX 

XX 

XX 

XX XX 

START 


XX XX 

XX 


XX 

XX 

XX 

XX XX 

START 


XX XX 

XX 


XX 

XX 

XX 

XX XX 

START 


AXXXXX '.> <x 

XXXXAXXXXX 


XX 

XX 

XXXXXXXXXXXX 

XXXXXXXXXX 

START 


AXXXXXXxX 

XXXXXXXXXX 


XX 

XX 

XXXXXXXXXXXX 

XXXXXXXX 

START JOB 

1716 X7CRMS74 

TAPE1 05- 

13:26 FRl 07 

JAN 

S3 (33/007 

) CLASS e/STD. nasa/gsfc 

SACC 370/168 

HASP II V4.0 
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SNOH.KeLT, RUNOFF, MODFL .FORT 
00010 BLOCK DATA 


OOOl'O 

000:10 

00040 

000f»0 

OOOAO 

00070 

OOOBO 

00090 

00100 

00110 

OOl^iO 

ooi;io 

00140 

ooi;>o 

00160 

00170 

00180 

00190 

00700 

00710 

00270 

00230 

00240 

002S0 

00260 

00270 

OOl'BO 

00290 

00300 

00310 

00:120 

00330 
00340 
003r#0 
00,160 
00370 
003HO 
00390 
00 400 
00410 
00420 
00430 
00440 
0041i0 
00460 
00470 
00480 
00490 
00?00 
OOSl 0 


00?30 

OO'JIO 

00?fi0 

00'560 
00370 
00380 
00590 
00600 
00610 
00620 
00 630 
00640 
00650 

0 0 6 6 f, 
006 /r, 
006 H<» 
006VO 
00700 
00710 
00V20 
00 7,10 
00740 
00750 
00760 
00770 
00780 


C 

c 

r. FUNmiDN - BLOCK DATA CONTAIHS Al.l OF THF NAHKLI8T ANO 


c 


OOTPOr VARIABl.ES IN ALL 

OF THE COHHON BLOCKS 

r 


USED IN 

THE SNOHMEl T-KUHOFF MODEL PROORAH. 

c 

c 


DEFAULT 

VALUES ARK INDTC 

;ArKO WHERE APPLtClBLE 

c 

c 

COhMON Bl 

LOCK VARIABI.FS 


c 

VARIABLE 

COmiDN 

TYPE DEFAIU. r 

DESCRIPTION 

c 

P 

OU TDAr 

R*4 

PRECIPITATION CONTRIBUTING 

c 




TO RUNOFF IN FACH ELEVATION 

c 




ZONK < MKT ; CM » ENG { IN ) 

c 

ONPIX 

OUTDAT 

R*4 

COMPUTED AVERAGE DAILY 

c 




STREAM RiJN0FF<i1F.T:M**3/SECf 

c 




enr;et»»;i/sec) 

c 

XI 

OUT DAT 

R*4 

ARRAY COHIAINIHO HimUER OF 

c 




DAYS FOR PLOT ROUTINE 

r. 

TEMPT 

OUTDAT 

R*4 

COMPOTFD TEMPERATURE IN 

c 

c 




DEGREE-DAYS 

c 

c 


NAHEl.IST 

■ /Cl.IH/ PARAMETERS 

c 

c 


CLII 1 A roi 

.OOTCAI. DATA 


c 

r. 

TMAX 

TBASF 

R»4 

MAXIMUM DAH.Y TEMPERATURES 

c 




RECORDED FUR BASE STATION 

r 




(METJCfENUlF) 

c 

TMIN 

TPASE 

R«:4 

MINIMUM DAILY T EMPFRA TURF.S 

c 




RECORDED FOR BASE STATION 

c 




(HETtCiFNGJF ) 

c 

T 

CL IDAT 

R#4 

TEMPERATURE DATA EXPRESSED 

c 




IN DFGREF-DAYSIMF.TIC-Df 

c 




eng: E-ID 

c 

S 

CLIDAT 

R*4 

SNOWCOVER AREA IN FA(!H 

c 




ELEVATION ZONE < 1 , 0= 1 OOX ) 

c 

PRECIP 

CL IDAT 

R*4 

DAILY MEASURED PRECIPITATION 

c 




IMKftCMJFNGlIN) 

c 

ACTUAL 

Cl. IDAT 

R*4 

ACTUAL STREAM KUNUFE FROM 

c 




HISrORICAI. DAIA 

r 




<MFT :M1137SHC;ENGtET*»:i/SEC) 

c 

TCRl T 

CL IDAT 

R*4 

TEMPERATURE CONVERSION 

c 




FACTOR FOR RAIN/SNOW CHECK 

c 

c 

Nn 

CL I DA ! 

114 183 

NUMBER OF SNOWMELT DAYS 

c 

r 


NAHFI. IST/BASF/ PARAHEThRS 


c 


BASIN DATA 



r 

BASIN 

BASDA 1 

Rift 

BASIN NAME 

(■ 

I YEAR 

BASDAT 

T*4 1979 

HODFl YEAR 

c 

N7 

BASDAT 

1 «4 4 

NUMBER OF FLEVAtIUN 7I»HES 

c 

AREA 

PASDAT 

RIB 

AREA IN EACH ELEVATION 

c 




ZUNKIME r:M**2?ENG;FT**2) 

c 

X 

PASriAT 

R«B 0,PB-Ui0 

X PARAMETER IN COITPUVING 

c 




RPCESStUN COFFFICTENT 1 K 

r. 

Y 

PASDAT 

R*8 -0.0677D0 

V PARAMETER IN C.UMPUT INB 


77 


00 /yc) C 
OOHOO C 





REiTESSTON CHEF F I C I ENT > K 

00830 r 
008',!0 C 
OOBSO C 

FDR 

GAPE 

Rt4 

1.0 

PREVIOUS PAY K-IINOEE AT 
STREAM I3AUE, 

00840 C 
OOBliO C 
O0B<!.0 C 

PDH2 

GAGE 

R*4 

0.0 

PREVIOUS PAY-1 RUUOEE AT 
STREAM GAljF. , 

00870 C 
00880 C 
00890 C 
00900 C 
00910 C 

QNS 

GAGE 

R1E8 

o.no 

INITIAI RIJHOKE VAI.OE. 
THIS VAllJE SHOULD BE THE 
ACTUAL DATA VALUE PAY 
AC l UAl. ( 1 >-l . 

00920 C 
009.V0 C 
00940 C 
009;i0 C 

DTl.R 

BARPAT 

R*4 


AH.IUSTMENT FOR TEMPERA ! ORE 
(.APSE RATF(MFT:C-PJ 

eng:f-j.o 

00960 C 
00970 C 
00980 C 

AN 

FiARPAT 

R34 


DEGREE PAY FACTORS 
< MKT ;CM/C/PAY f ENG : IN/F/PAY 3 

00990 C 
01000 C 
01010 C 

CS 

BASBAT 

R*4 


RUNOEE rOE'E-KICIENTS 
FOR BNOU 

01070 r 
010.50 C 
01040 C 

CR 

BASPAT 

R*4 


RUNOEE COEJEFKMEN 1 S 
FOR RAIN 

OlOfiO c 
01060 C 
01070 C 
01080 C 

I PR 

BASPAT 

I #2 


PRECIPITATION ME'THOP OPTION 
O-NDN-SNOlg COVERED AREA 
i=TOTAi. are:a 

01090 C 
01100 C 
01310 C 

ZMEAN 

TBASF 

R*8 


HYPSOMETRIC MEAN ELEVATION 
OF EACH ZONE 

01120 r 
oii:50 c 

STATN 

TBASE 

RV8 

■ 

EL EVA II PIT OF BASE: STATION 

01140 C 
Oll',jO c 
01160 r 
011/0 c 

01180 C 

MAXMIN 

TBASF 

1 %?. 

0 

FLAG TO INDICATE IE TEMPS 
ARE INPUT AS MAX-MIN 
0 = TFE1PS NOT AS EIAX-EIIN 
l-TEMPS INPUT AS MAX-lilN 

01190 n 
01200 C 

01210 r. 

01220 C 
01230 C 
01240 C 
012SO C 
01260 C 

lEXT 

TBASE 

1»:2 

0 

ET, A(j IE TE MPE RA rUKh S ARE. TO 
BE AUTOHA r TCAL 1 Y EXTRAPOLATED 
TO ELEVATION /ONEJ. 

SINDL.E STATION INPUT ONLY. 
0=EXTKAP0l. AT F USIHO GIVEN 
(APSE RATES, 

1-AUT0E1ATU;AI. 1. Y EXTRAFOl ATE 

01270 C 
01280 C 
01290 C 
01300 C 
01310 C 
01320 C 
01330 C 
01340 C 
01350 C 

IDEGHY 

TBASE 

1*2 

1 

FI, AG IE TEMPERATURE IS TO HE 
ClIMPUfEP ,(N PF.GREE-PAYS 
O-NO COMPOT ATKIN NECESSARY- 

ie;mp is input in ufqrkf;- 

DAYS. 

l*CriMPI)TE TEMP. IN DEGREE- 
DAYS , 

01360 r 


NAMELIST /(IP 1 / PARAMETERS 

013/0 C 
01380 C 


PROGRAM 

CONTRIU 

ANTI OPTIONS 

01390 C 
01400 C 

IftUN 

OFTPAT 

1*2 

1 

RUN SE.fUlhNCE: NUMBER 

01410 C 
014>0 C 
01430 r 
01440 C 

liOnE 

OPTPAT 

I«? 

0 

SNOWMELT HOPE. 
O-RIMLII ATtON MODE 
l = FriRkCAhT MOPE 

014!i0 C 
01460 C 
01470 C 
01480 C 

IPl.T 

OPTPAT 

1*2 

1 

PLOT UPTION 
O^NO PL OT 
1-PL.OT 

01490 C 
01500 C 
01510 r 
01520 C 

IPR] NT 

OPTPAT 

1*2 

0 

PRINT OPT I ON 

0- NO PRINT 

1- PRl NT 

01530 r 
01540 C 
01550 r 
01560 C 

UFl AP 

OPTPAT 

1*2 

0 

UNITS FLAG 
0-METRtC UNITS 
1=FNGLISH UNITS 

01570 r 
01580 C 

ACTFl P 

OPTPAT 

1*2 

1 

ACTUAL DATA E 1 AG 
O-NG actual DATA 
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HAT A 


015VO 

01600 

01610 

016VO 

016?0 

01640 

016t«0 

01660 

01670 

016HO 

016V0 

01700 

01710 

017?0 

017,T0 

01740 

017;50 

01760 

01770 

017B0 

017V0 

OIBOO 

01810 

01070 

01030 

01840 

01050 

01860 

018V0 

01080 

018V0 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 


020 30 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02 J 10 
02120 
02130 

021 40 
021"i0 
021 60 
02170 
021P0 
021 90 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
'■'2280 
o’-.'jyo 

02300 
02310 
02320 
0 2 330 
02340 
02350 
02360 
02370 
02380 


C 

C 

r. IZONh OPTHAT TV2 

C 

C 

C 

C 

C 

C 

C 

C 

C inm.0 OPTHA'l 1*2 

c 

c 

c 

c 

c 

C HTHO OPTOAT T*7 

C 

C 

C 

C 

C 

C 

C ITPROr aPTJlAT T«2 

c 

c. 

c 

c 

C IPRRUN OPTPAT 1 «2 

C 

C. 

C 

C. ISTrtTH OPTHAT 1*4 

C 

C 

C lENHTH OPTJ.IAT 1*4 

C 

C 

r EXTFRNAl REPFRFNrPS - N(JNF 

C 

r CALIFTI FROM - NONE 

C 

C DESIGNFR7PR0GRAMMER - li. MAJOR r 

C 


l^AOTUA! 

3*0 7(JNF I.IAIA H AG 

r.70NE( 1 ) -■ TKMPFRATURR LAPSE 
RATF JiAIA 

17.r)NK<2)-PRl-:r.IPTTATT0N OAT A 
IZONE< .D-RIJWOKF’ INtFFF T C T ENTS 

0 =Nl) /DNF tlATA AVAILABLE 

1 = TiATA INPUT BY ZONES 


1 TFMPERAniRE LAPSE KATF FLAG 

0- NO tempera HIKE LAPSE RATE 
DATA AVAILABLE 

1- TEMPERATURE I.APSE RATE 
DATA AVAILABLE 

1 MhTHOI) LISED U) OOMPLITE 

temperature in degree- 
days IN THHPFRA'I UK’E PRE- 
PROCESSING ROUTINE 
0=MEAH METHOD 

1-EFEECnVE MINIMUM METHOD 

1 TFMPFRAILIRF PRE.-E-ROOESS 1 HG 

FLAG. 

0=NO PRE-PROCFSSING 
1=-PREPR0CES5 TEMPERATURES 

1 PRINT RIIHOFE VALUES PE;R 70NF 
O^NO PRINT 
1=PRINT 

4 INTEGER INDICATING S'( ART 

MONTH i)F MUDFL 

4 INTEGER INDICATINO F ND 

month OF MODEL 


RESFARCH R UA'IA B YSTFMS » I NC . 


0 LANGUAGF/COMPUTER - EORTRAN IV/ IBM 360/91 AT GBEC 

C 

C***t*-**t*lf*^rii***iif:*imH(Tt^:Hi.**'^^******f<l.*il.tti*******.****i(*t***-***t*********** 

C 

C 

C 


RFAl *8 BASIN»ARFA.XfY»QNS»/MFAN>STATN 


INTFGFR*7 IRUN* MODE f IPRRUN » IPI.I . IPRINI f UE I. AG. ACTE I. G. 1 70HFi 
[DTELG.M IHOf T I'PROO » M AXM .( N . 1 E XT • IDFGDT, IPR 


NAMFl 1ST r.l, IMATOI nOlFAL DATA COMMONS 


C0MM0N/r.l,IDAT71 (366.8) .5(366.8) » PREJf; I P ( 366 1 8 ) .ACTUAL (366) . 

1 TCR.tT(366) .ND 

C 

COMMON /TPASF / 7ME AH(H) »S I AIN.T MAX (366) .TM1N<366) . MAXM 1 N . I E XT . 

1 IDEGDY 
C 

C NAMFl 1ST BASIN DATA COMMONS 

C 

C0MM0N/BA5DAT/BASIN(2) . AREA ( 8 ) » X . Y » DT I. R ( 366 . 0 ) . AH (366.8 ) . 

1 CS(366.H) .CK ( 366 ) »N/. I YEAR. IPR( 566.8) 

C 

C 

C NAMEt 1ST OPTIONS COHMON 

C 

COMMON70PTDAT7ISTM1H. I ENM1 H . 1 RIJN . MODE' . 1 PRRUH . 1 PL T . 1 PR 1 NT . tlE'l. AG . 
1 ACTFUj. I70NF (3 ) . ID TFLGfHTHD . I TPROC 
C 

C OUTPUT DATA COMMON 

C 


C0HH0N70UTDAT/P(366.8) ftlNPlX(367) .XI C367) . TEMPT ( 366 . 8 ) 
C 

C STREAMFLOW LAG AT STREAM GAGE COMMON 

C 
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02390 

02‘10() C 

024 JO C 

02420 C 

02430 

02440 

024fi0 

02460 

024 70 

02480 

02490 

02500 

02510 


02530 

02540 

02550 

02560 

025 VO 
02530 
02590 
OVAOO 
02610 
0 ■*620 

026 30 
0 ' A 4 ' ■ > 


COHHON/GAGF./QNS. PPR(367) »PI.iH7<:<67) 

DATA STATFHFiNTS 

DATA 1/3928*0,0/ 

DATA 8/2928*0,0/ 

DATA PREClP/29?8*0.0/ 
tiATA ACTUAL/366»0,0/ 

DATA TCRir/366*0./ 

DATA ND/J83/ 

DATA TMAX/366*0,/ 

DATA TMTN/366*0,/ 

data BASTH/'SOUTH FO'.'RK •/ 

DAI'A ARFA/1 ,3D7, 2. 807,9.5157,9,207,4*0, do/ 
DATA X/0. 88400/ 

DATA Y/-0.0677D0/ 

DATA ONS/O.DO/ 

DATA PDR/367*1./ 

DATA pnM2/367*0./ 

DATA riri.R/292S*0,0/ 

DATA AN/2928*0.0/ 
data CS/292e*0.0/ 
r*ATA r.R/366*0./ 
data N7./4/ 

jyFAh'/J979/ 
data tPR/2928*!/ 


02650 

0/660 

'/O 

0 '.sgo 

90 

■1 ‘20'.' 
0 

A ’ 7 I ' 

''••730 


2 9'' 


DATA 7ht.AN/8*0.!i0/ 
TiAIA 8TATN/O.DO/ 

D-' ; A hAXMTN/1 / 

DA I A lEXT/0/ 

DATA IOF.GHY/1/ 
lA [RIJN VI/ 
MOOF/O/ 
t-AIA TPLT/OV 
'■',■*(■ IPRINTVO/ 

■■•‘.'A Uri-AG /O/ 

DATA AOmn'M/ 

•■AT A T7DMF/3*0/ 

'• • ’ A ] OTFl p. 1 / 

■••.'A rtfriD/O/ 

: ' ■ I- T iPRoc/i/ 


O2800 
O2310 
02820 
02830 
0-7940 
028'JO 
07960 
02P70 
C23S0 
O','8yo 
0'>‘’0''' 
02910 
02920 
029 30 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
031 10 
031 20 
03130 
03140 
031 :-iO 
03160 
031 /() 
031 80 
03190 
'32 00 

' <2 1 'r 


DATA IPRRUN/l/ 
data ISTMTH/4/ 

DATA IENMTH/9/ 

DATA P/2928»0.0/ 
DATA 0NPlX/367»0,0/ 
DATA Xl/367*0,0/ 
DATA TFMPT/2928*0./ 


MAIN PROGRAM FOR BHOUMFll -RtJNOFF MODEL <J.lRVSHO ) 

t********************************************************************** 


FUNCTION - THIS IS THF MAIN PROGRAM DRIVER EOR THE SNOWHfiLT- 
RUNOFF MODEL PROGRAM AS DFVELOPKD BY J-MARTINSC 
AND A, RANGO, 

THF SNOWMFI.T-RLINOFF MOMFl PROGRAM COMPU'I E8 THE STRE AM RUNOFF 
FOR ANY MOUNTAINOUS BASIN FOR ANY SNOWMELT SEASON UP LO 365 
DAYS AND ANY NOHWFR OE El. EVA’tlON ZONES UP TO 8 ZONES, I HE 
BASIC INPUT PARAMETERS ARE SNOW COVERED AREA , TEMPER ATURE , 

AND PRECIPITATION DATA. THF DATA MAY BE INPUT FOR EACH 70NE 
AND MAY BE INPUT IN EITHER METRIC OR ENGLISH UNITS. 

THF SNOWMFl.T-RUNOEF MODEl PROGRAM CAN BE OPERA'I'ED IN EITHER 
A SIMULATION MODE WHERE THE COMPUIED STREAM RUNOFF IS COMPARED 
TO ACTUAL STREAM RUNOFF! IE AVAIL ABLF) OR A EORCAST MODE WHKRF 
THE STREAM RUNUEK IS COMPARED TO ACTUAL RUNOEF EVERY 7TH DAY, 

INPUT PARAMETERS ARE READ INTO THE PROGRAM FROM THREE NAMFl.lSTS, 
/CLIM/ CONTAINING CI..IMATOLOGICAL DATA , /BASE/ CONTAINING BASIN 
DEPENDENT DATA, AND /OPT/ CONTAINING PROGRAM OPT .IONS, 

AS AN OPTION Al. I. INPUT PARAMETERS CAN PE REPRODOCFD AS OUTPUT 
ON A MONTHl.Y BASIS. ALSO AS AN OPTION A PRINTER Pl.OT CAN PE 
PRODUrFri WITH COMPUTED ST RF AMF L.OW AND ACTUAL HTRF.AMF'LOW PLOTTED 
AS fUSCHARGF RATE VS. NUMBER OF DAYS. A 'GOODNESS OF FIT' MEASURE 
AND TOTAI ACTUAI AND STMUI. AIED STKFAMEIW IS PKODUChD AS OUTPUT 


EXTFRNAl RFFFRFNCFS- 


03270 C 
03230 r 
03210 C 
03250 r 
03260 C 
0J.270 C 
03280 C 


HFADIN - KFADS IN NAHFl.TST AND OTHER INPUT DATA 
FRFTMP - F XTRAPOI ATES TFMPFRATUKFS TO EIFVATION 70NF AND 
COMPIITFS TFMPFKATURFS IN MLGRFF-DAYS. 

PF.FSNO - f Al no ATFS PKFCTPTIATIOH CONTRTBUI IHG TO RUNOFF 
KIR EACH EIKVAT.IUN /ONE IN BASIN FROM DRY 
SNOW (NON-SNOU CUVFRFD AREA) OK RtPF SNOW (TOTAL 
ARFAl I'ONDTT IilNS . 
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032VO 
03;?0() 
03?1 0 
C-13<>0 
<13330 
03340 
033f.0 
03 <60 
0 3370 
03380 
03370 
0 34 00 
<l>34 1 o 
03470 
0 34 30 
0 < 4 4 O 
<>3 4^iO 
0 < 16.' 
0 3 1 7 f. 
O < 480 
4 90 
0 3500 
03510 
03570 
03530 
03540 
0 3550 
03-I60 
0 3570 
0 3 580 
1590 
n 

.. 6 10 


1 if> 10 

,3650 
• (660 
• <6 30 
03680 
0 369 ,.) 
'13 70 0 
037 1,0 
037'>0 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03970 
03930 
03940 
03950 
03960 
03970 
03990 
03990 
04000 
04010 
04070 
04030 
04040 
04050 
04060 
04070 
04090 
04090 
04 1 00 
04 110 
<>4 1 70 
0 1130 
O-’.l 4 0 
04150 

OA I 
0^1 7n 
OA 1 80 
'>•1190 


RUNOFF - rOhRUTFP THF RkFnir-TFn 9TRF0M RUNOFF BASFD OH THF 

SNOimFl I -KimUKF HUOFl. FllUATrONS 8Y RANUO ANP MARTINEC 
eocin - rALCUlAfFH IHF NA8H-SU-n;l IFFF OnOONFSB OF F.IT HFAHUKF 
ANU COMPUTFS THK MKAN OCrUAl. SI RFAHFLUN f PRFOTCTF.Ii 
SFAisriNAI. OOI.UHF ANJ.i F'FR FFNl SFASOHAL niFHhRFNrE 
BF.TWKKN or/niAl. AMfi PRFPTCTFn STRFAHFl.OW 
F'LOTR - CONIAUIP fl. OT RUUTINFS FROM THh FORTRAN F'RPt.OT 
PfiOKOUF TO Pl.Or AUTOAI, AUTi PfiFtUCFFO STRFAMFI.OU 
lOUT - OTII.1TY PROOROIl TO nOlPUT RFPUl.lS IN HONiHI.V ANO 
IIATl T F0RI1AT. 


CAllFF.i froh: 

MOlHTNri - FHTS 


IS THF MAIN riRIVER 


LAN8UAPF /rONPin ER - FORTRAN IV/IHM 360/91 AT OSFC 

C'ESIRNF K/PROORAHFiFR - ri.HA..IOR» RFPFARCH S UA'1 A 9 YSTF 149 » 1 HO . 

REFFRFNCF - RANPC!»A. ANP M AR T I NFO f J . <1VV9) APPI.. I OA ( I OH OK A 
SHOHMFI. i-KONOFF OSTKIH I.ANTiRAT PATA. 

NORP J C HY riRm.OOV r UO), ,10. 


C*****it;*»;* 4 : 4 :**»;)i;*»:»*«i[*;* 4 :**)(!l)(i#*:******f.»:*»».K'.#**t.** 4 ;*»**Y.***t.t. ***♦»:**»:»** 


C 

c 

REALY-8 PA91 N» AREAf X t Y , PH9 , 7NFAN j 9T AVN 
C 

INTFPFR»7 ] RON.HdPE. .IPRRUNf IPI T. I PR IN I .OF I. A(i . AOTFI.0 . 1 70NK . 

1 IP FFI. 0 , fITHri, TTPROC. MAXMIM. VEX F . 1 PEP IVf . 1 PR . I OFI .G > ROFL.G . 

7 fofI G.PTFI.P. lOKt R.POK P 
C 

n inr M5 1 ON pimriF ( 366 .H) 

r 

ri;**** ropiON ,8iO(i'5 tfnt* 

I 

rOrmnN/n mo r / r < <66 - o > . S< 366. P 1 . PRKMP< 366 .8) . AOTOAI. < 366 > . 

1 1 f K n ' 366 1 . HP 

c 

CarlKiON/l RASK / 7MFAN ( 8) . 81 A1 N . THAX ( 366) . I niN< 3661 jMAXMIN. IFX'I . 

1 UiFppY 
C 

COMHON/OOTPAT/P (366.8). ONPl X< 36/ 1 . XI ( 367 1 .TEMPT < 366.8) 

C 

COMMON/PASPAT/HASTNl 7 ) , ARF A ( 8 ) . X . Y • PTI R( 366.8) . AH < 366.8) . 

) 08(366.8) .1:R(366) .N/i lYFAR. (PR(366.8) 

C 

COMMON/OPl PAT/ISTMTH. IFNMl H. 1 RON . MOPF . I PRRON » IPI. 1 . 1 PR 1 N T . UFI. A(> » 
1 Ai: I Pt Pf .( /0NF(3) . tP fpl P ,MTHI). I I PROC 
C 

COMMON/PAPF/QNS .PPR( 367 ) .P0M7 (367) 

r 

C 

C-*t**H****ti****t%********tt 

PAVA R0NflF/797840.0/ 

C 

C 

C REAP INPUT PATA -- CA) I RFAP.1N 

C 

C 



C 

C 

r. 

c 

c 


c 



ISFT^O 

CAM RKAPtN ( 1 RET . TFNP ) 

IF FNP OF PATA THFN TFRHINATF PROGRAM 
IF( IFNP.GT ,0) pn 10 30 

CALI TFMPFRATURF PRF-PKl.O;FSS J NP ROOTINK IF ).ihSIRKj:i -- CALI. PRKTMP 

IF ( ITPROC.FO . J ) CAI I 1 APPF ( STAl N . HP . NV . I4AXM IN • 1 F HPT . TI4AX . IMl N . 

PTI R.0FI..AG.MTHP.7MFAN. (EXT. (PFGPY.T) 

IF('TPRINT.FQ.O) GO TO 100 

PRINT TFMPF RATORK ( IN PF PRF K-PA YS ) • PKFC I P 1 T A1 1 ON . ANP 9NI.1U 
CnOKRKp ARKA ON MONlHI.Y ANP /ONAI RAS.rS FAIL TOUT 

lOFl G-1 
ROFl G = P 
COFl P-O 
PTFI G-=o 
TOPI G- 0 
POFI P'O 

IF ' ITPROr .FQ . 1 ) (.(I 1(1 50 
PD ;■) T--1.NZ 

PCI 57 ,1 = 1 . NP 

TFilPT ( I. 1 ) =T I I . I ) 

CONTINUE 

rONTTMOK 

FAl I 1 no r ( N7 .part N . 1 YFAR. T 70NK . I SI M I H • 1 K NMT H . T FHPT . PRK C ) P . S . 
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04 200 1 IPR» RUNOFf ONPtX»fti;TUftL>CS» ANjPTl.RrDFI.AGf TaFl.Gf ROFl.Gf COFLGj 

04210 2 OTFl G.ThAXfTMINvTCRJTrCR.P, TOK.r-ipfOFI.fi) 

04220 C 
042:10 C 
04240- 100 

012h0 C 
047.SO r. 

04270 C 
042R0 
O4290 C 
04X00 C 
04310 C 
04320 
04330 C 
04340 C 
043^0 C 
043(10 
04370 C 
04:400 C 
04390 C 
04400 C 
04410 
01420 C 
04430 900 

0)440 C 
04450 C 
044A0 C 
04470 
04480 C 
04490 
04500 C 
04510 20 

04520 C 
04530 C 
04540 C 
04550 
045A0 C 
04570 C 
04580 

04590 30 

04600 1500 

04610 C 
04620 
04630 
04640 
04650 C 

04660 C*1f*********#****i********t*****fi-*ttt*t****t*tt*1i***1f**1Hi.t*t%t***t***** 


04670 

C 

FUNCTION 

- READS 

INPUT 

DAIA FROM NAMELISTS /CLIM/p /BASE/i 

046B0 

c 


AND /OPT/. ALSU OUTPUTS HEADER INFORMATION 

04690 

c 


ANDpUN OPTXnNpWILL REPRODUCE ALL INPUT PARAME1 

04700 

c 





04710 

c 





04720 

c. 

ARGUMENT 

LIST - 



04730 

c 

VARIABLE 

TYPE 

10 DESCRIPTION 

04740 

c 


— 

— 


04750 

c 

ISET 

I»4 

I FLAG TO INDICATE FIRST RUN OF MODEL 

04760 

c 

lEND 

1*4 

0 FI. 

.AG TO INDICATE END OF DATA 

04770 

c 





04780 

c 

COMMON Pl.tlCK VARIABLES 

USFD - 

04790 

c 

VARIABLE 

COMMON 

TYPE 

.10 

04800 

c. 



— 

-- 

04810 

c 

AREA 

BASDAT 

R*8 

1 

04820 

c 

X 

BASDAT 

R*8 

I 

04830 

c 

Y 

BASDAT 

R*8 

I 

04840 

c 

T 

Cl. I DAT 

R*4 

I 

04840 

c 

S 

CI.IDAT 

R*4 

0 

04860 

c 

PREC.IP 

CL I DAT 

R*4 

I 

04870 

c 

ACTUAL 

CI.IDAT 

R*4 

I 

04880 

c 

CS 

BASDAT 

R*4 

I 

04890 

c 

DILR 

BASDAT 

R*4 

0 

04900 

c 

AN 

BASDAT 

R*4 

0 

04910 

c 

ND 

BASDAT 

1*4 

I 

04920 

c 

PPR 

GAGE 

R«4 

I 

049:50 

c 

PDM2 

GAGE 

R«4 

I 

04940 

c. 

ONS 

GAGE 

R*8 

I 

04940 

c 

NZ 

CL I DAI 

1*4 

I 

04960 

c 

I RUN 

OPTDAT 

1*4 

I 

04970 

c 

MODE 

iJPTDAr 

1*4 

I 

0 4 980 

c 

PASIN 

BASDAT 

R*B 

I 

04-79 C) 

c 

IPl.T 

OPTDAT 

1*2 

I 

05000 

c 

I PRINT 

OPTDAT 

.1*2 

I 

05010 

c 

UF1.AG 

OPTDAT 

T*2 

I 

05020 

r 

I ZONE 

OPTDAT 

.1*2 

I 

050:5<’- 

c 

iriTFL.G 

OPTDAT 

1*2 

I 

050 40 

r 

ThAX 

T BASE 

R*4 

I 

OIIOT/O 

c 

T.1IN 

TBASE 

R*4 

I 

-. : ('60 

r 

ZhFAN 

7 RASE 

R *8 

I 

'■ 

c 

S 1 A T N 

I BASF 

R *8 

I 

. 

c 

MAXHIN 

1 BASE 

1*2 

I 

o':.o90 

c 

(IT HD 

OPTDAT 

1*2 

I 


CONT.TNUE 

CAll. ROIITJNF Tfi COMPUTF PRH C.) f 1 T AT.T ON CONTRIUtn 1H(5 TO RUNOFF 
CAU PRFSNO 

COMPUTF FRFPjrmt RUNOFF -- OAl 1. RUNOFF 
CALI. RUNOFF 

CHFCK IF ACTLIAI DATA AUAII.AHI.F 
IF<ACTFt.G.FQ,0) GO TO 900 
CONFUTF RFSULTB — C.Al.L riOCHi 

CALI GOOD (QNFIXp ACTUAL pNP) 

CONTINUE 

CHECK IF PLOT IS OKSIRFO AND CAU. PLOT ROUTINF --CALL PLOT 
IFCIPLT.FQ.O) GO TO 20 

CALL PLOTRIONPIXpACUIAI p XI p NM p UK AG p ACTFl.G ) 

CONTINUE 

CHFCK IF NOT FIRST RUN ANH St T FIRST RUN FI.AGp.ISET 
ISET=1SFT-K 

GO TO 10 
WRITE(6p 1500) 

FORhATl ' FN!) OF DATA' ) 

STOP 

END 

suproutinf: rfadinusftp if:np) 
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C jTF'R-ttC CtPTPfiT 1 

■v:iio c 

)'J1V0 C- 

■ ■■ ii: c 

■|^M0 C EXTfSNAl. KFFF.RENi;ES- - 

c coiir - itTiiJiTY «miT.(NK m ihit>>iit rfsui.ts tn monthly 

OV,5 60 r. ANK t.iA\l.Y KIRHAT . 

05170 C 
051 so C 

05190 r CAL.l.FP PY -- MAIN 

0S:!00 C 

l.-5?10 C COMPI'TFR/I.ANRIIARF -- J PM 3A0 A'l RKh €:/Ft)K I RAN IV 

053VO C 

O5I130 C DESieNFR/fROGRAHMFR -- G , MA.HIR , RE Sh ARCH S HATA SYSTFHS.INC. 

051?40 C 

05250 C***^********-*%***.***%**^%**********X*1l.**-****************t*t*:*********t** 

052A0 C 

05?70 REAl.*fl PAPIN > ARE A?XfY » ONS » 7.MF. AN r PI A'l M » t)NI TS ( 2 1 .UNIT 

052H0 C 

05290 INTFGh R*2 IRUN. MOPF . IPRRUN. IPI. T r I PR X NT r UFI. A(5. ALT FLR. X70NF . 

05300 1 I llTFI.l5.MTHn. I fPftOC . MAXM IN . Ie:XT . inFUDY. IPR. [IIFI.G. ROFl.O . 

05310 ? COFLG.PTFl G.TOET G.POFI.P 

05320 C 

05330 niMFNBION RUN0F<3A6.P) . TE MET < 3 A A r 8 1 .AMUNTT<3) .AFUHX I (3) 

053A0 C 

05350 DATA RLIN0F/2928*0 . 0/ 

053A0 DATA TFMPT/2928»0 , / 

05370 data UNITS/'MFTERS '.'FFE'I '/ 

053B0 DATA AMUNIf/'SU. ' » ' MF.TF. ' . ' RS '/ 

05390 DATA AhUNI T/ ' SQ , '.'MILF'.'S '/ 

05AO0 C 

05410 C»**»** COMMON PI.OCKS 
05420 C 

05 4 30 COMMON/ri.IDAT/T<3AA.R) . S ( 3 A A . B > . FRFC I E' < 3 A A . 8 ) .ACTUAL < 3AA) . 

05440 1 rCRIT<3AA) .Nil 

05450 C 

05 4 AO COMMON/TPASE /7HFAN< B ) . STAl N. THAX < 3 A A ) . 1 H I N (.3 A A ) . HAXK 1 H . I FXT . 

05470 1 U1ET5HY 

05480 C 
05490 C 

05500 COMMON/nPIPAT/ISTMTH.IFNHTH. IRIJN.HUllE . I PRRUN . I FI. T . I PR .1 Nl .UH. A(5. 

05510 1. ACTFt.H . I 70NF < 3 > . IDTFLR. M THll. ITPROC 

05520 C 

05530 COMMON/PASDAT/BAS1N(2> .ARE A (8) . X . Y . DTI. K 13 AA . B 1 . AH < 3A A . 8 1 . 

05540 1 CS< 366.8) .CR( 3AA) .N7. lYEIAR. IFR( 3AA. 8) 

05550 C 
05560 C 

05570 C0MM0N/PAPF/QNP.PIiR(367) .PI.iM2(367) 

05580 C 
05590 C 

0560 0 Ct***'^*ttii:****mt.**t*tt.**.t^%t*t 

05610 C 
05620 C 
05630 C 

05AA0 r****** INPUT NAMF.l. 181 **»»»*** 

05650 C 

05AAO r CLIMATDI.OGICAL NAHFLIST PARAMFTFRS 

05670 C 

<•''■680 NAMFl IST/CI. IM/ND.l , S . ACT II AL . PRFC I E‘ . TM AX . TH 1 N . T CRl T 

05A90 C 

05700 r BABIN NAMFl 1ST PARAMFTFRS 

05710 C 

05 720 NAMFI.IST/BABE:/PABIN.N7, IYE'AR. ARFA.X. Y.rjNS,P))R.PI)M2,DTL R. AH.CS. 

05730 1 CR.7HEAN.HTATN.MAXMIN. TEXT. IDFPDV. IPR 

05740 C 

05250 C PROGRAM OPTION NAMFl 1ST PARAMETERS 

05760 C 

05770 NAMFl I ST/OPT /I RUN . NODE » I PL T. I PRI NT . UFI. AG » ACT ET. 8. 170NF . IDTFLG. 

05780 1 MTHD. ITPRDC. IPRRUN. ISTM TH. lENHTH 

05790 C 

05000 C 

05810 C 

05820 C 

05030 IEND-0 

05840 C 

05850 C CHECK IF NOT FIRST RIJN 

05860 C 
05870 C 

058B0 IFdSFT.PE.l ) GO TP 10 

05890 C 

05900 C READ CLIM NAMELIST FUR CLIMA1 01. UGICAI. DATA 

05910 C 

05920 REAPIS.CL IM»END=995) 

05930 995 CONTINUE 

05940 C 
05950 C 

059A0 C READ BASE AND OPT NAHFLIST FOR BASIN AND PROGRAM OE'TION DATA 

05970 C 

05980 10 READ(9.PASE»ENn=999) 

05990 RFAD(9. OPT. END-999) 
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I I nil 


■I ■■■■ ini 


06000 IF(tJFl.ftCi.Fn.O) IIN I T=-UN 1 TS U ) 

06010 IF< DFt.An . t:Cl . 1 ) 1JNlT=UNtTS(^) 

060',;>0 c 

060;so C UFrlTF RUN NLIHPFR AHU BABIN NANF 

06040 C 

06050 WRITF<6f1500> 

06060 C 

0607P URnF<6»?000) I RUN » B AB T N p I YF AR 

060B0 C 

06090 C- WRITF PNdUUFl.T RUNOFF PROORAK HOnF 

06 100 C 

06110 WRITF(6f7500) MOPE 

0-M70 r 

061 70 r URJFF PRORRAM UPIIUNS 

061 5<' URITF<6»7000) 

06160 7000 FORHAtl," PROGRAM OFIIONB < 0=-0F F p 1 -UN ) ' // ) 

06170 WR 1 rK<6p6300) .(PI. Ip .(PR (NT p UFl.AG p ACTFl.U p (T 7UNF ( I ) p T - 1 p 5 ) p IBTFI.Gp 

06180 1 MTHIip ITPROOp IPRRUNp 1 FXTp lUFGn Y p HAXM I N p I S t MTH r 1 FNMTH 

06190 C 
06700 C 

06?10 r WRITF NUMBER OF SNUWMF1.T PAYS ANU Ft.FVATION 7UNES 

06770 C- 

06770 URITF(6p5000) NBpNZ 

06240 C 

067BO C WRITF RFOFSSION COEFFICIENT FACTORS X ANB Y 

06760 C 

06770 IF(PDR(1 ) pEU. 0.5) I. Afi=6 

06730 .rF(priR< .1) pEO.0.7) LAG^IO 

06790 IF (PDR( 1 ) .FO .0 . 75 > LAG- 12 

06700 ,[F(PriR( 1 ) .FQ ,0 .8) I.AG^IS 

06710 IF(PIiR(l ) pFUpI .0) I.AG=1B 

06320 WRT TF<6p6000) XpYpQNSpI.AG 

06370 C 

06340 C WRITE AREA IN EACH FIFUATIUN ZUNF 

06350 C 

06760 IFdlFl AG.EO pO) WR I TE ( 6 p 6500 ) AHUNIT 

06370 IFUlFl.AG.EG.l ) WR ( T E ( 6 p 6500 > AEUNIT 

063B0 WRITF<6p7000) < I p ARE. A < I ) p I = 1 p N7. ) 

06390 C 

06400 C WRITF HYPSOMETRIC MEAN FI.FVATION IN EACH ZUNF 

06410 C 

06420 WRITF(6p6900) UNIT 

06430 WRI rF<6p7000) ( Tp ZMEAN < T 1 p 1=1 p NZ ) 

06440 C 
06450 C 

06460 C WRITF BASF STATION FI.FVATION 

06470 C 

06480 WRITF(6p7600> UNIT 

06490 WRTTF(6p7700) STATN 

06500 C 

06510 C CHECK IF I APSE RATE BATA IS PRUVIBED 

06520 C 

06570 IF< TBTFl G.FO.O) WR ITF ( 6 p 5500 ) 

06540 C 

06550 r WRITF INPUT BATA IF JPRINT BATA FI.AU IB BET 

06560 C 

06570 IF ( JPRINT . FU pO ) GO TU 900 

o.!,580 IFdlAXHIiN.F.O.O) GO TO 910 

0^.590 C 

0.>600 10Fl.G = 0 

06610 R0FI.G = 0 

06670 COFt G = 0 

06630 DTFI.G = 0 

06640 rOFI.G=l 

06650 POFI,G = 0 

06660 CAL 1. .IOUTCNZpBASINp 1 YFARp JZONF p 1ST MTH p 1 FNMTH p TEMPT p PREXIP p S p 

06670 1 TPRfRUNOFpLTNPIXp ACTUAL, pCSp ANpBn.RpUPl.AUpTUFl.GpROFl.GpCiJFl.Gp 

06680 2 BTFLGpTHAXpTMINpTCRITpCRpPpIOE).GpPOEI.G) 

06690 C 

06700 C WRITE RUNOFF CDEFF ICIFNTS p BEUREE BAY FACTORS ANB PRECIPITATION 

06710 C MFTHUB ON MONTHl.Y ANB /0NA1. BASTS 

06720 C 

06730 910 IOFIG=0 

06740 R0FI.G = 0 

06750 C0FIG=-1 

06760 BTFI,G = 0 

06770 TOFI G=-0 

06780 P0FI.G = 0 

06 790 CALL. I OUT < NZ p B AS I N p I YF AR p 1 Z UNE p 1 SI MTH p 1 ENHTH p T EMPT pPRECIPpSp 

06800 1 IPRpRUNUFplTNPtXp ACTUAL pCSp AN pBU-RpUFL. AG pXOFI..ijpROFI..Gpr:QFI..Gp 

06810 2 PTFl G pTMAXpTMINpTCRITpCRpPpTOFL.GpPOFIG) 

06820 C 
06870 C 

06840 C WRITF LAPSE RATF ANB CRITICAL TFMFE RAT LIRE UALUES 

06850 C 

06860 I0FL,G = 0 

06870 ROFLG=0 

068S0 C0Fl.G=-0 

06890 DTF1 G=1 
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0A900 


06910 

06920 

06930 

06940 

06950 

06960 

C 

06970 

C 

06980 

C 

06990 

999 

07000 

C 

07010 

C 

0 7 0 0 

9oq 

0 /o 50 

1500 

5>7040 

2000 

07050 

2500 

07060 

3500 

07070 

07080 

07090 



POFl.G^O 

TOFt.G^O 

CAl L lOin <N7 » PAS JN» 1 YFAK> t ISl HTH 1 1 fc NHTH » 1 EHP ( »PKFC.,IP» P. 

IPK»Rl)Nl)F»aNFtXf Ain UAl. f CS» AN»lin,RflJFI..AH» IOFI..GfROFLG>COFLGf 
DTFLGrTMAX. TmN»1(;RITFrR»P»TOFl.GjPOFl.R) 

GO TO VOO 

SET FNP FLAG 

IFNIi=l 


PFTI.lftN 

FORMAK 'C' f ///////) 

FORMAT < //PXf ' RIJN * ' j IS. 2X f 'PAS IN- ' » 2A8»?X » ' YFAR-' » IS/) 

FORMAT < //' hOi:iF ( 0"'B I MUl. ATEP » 1 --FORC AS f ) = ' » IT//) 

FORMAK' Pim nPTUIN= ' . I7r2Xf 'PKIHI OPT ION- ' » I 2 . ?X « ' UN I TS < 0- ' f 
'METRIC. 1-FN0PI8H)--' . (2//IXf ' ACTUAL OATA FI. A0= ' . 12 . 2X . ' 70NE 
'JNPin riATA<TFHP, .PRFCIP, .RUNOFF COFF , > - ' . I ?// 
tX. 'LAPSE RATE OATA FLAU-= ' . J 2 . 2X . ' nEORFE-TlAY IIFTHOP ( 0=MEAN . ' . 


07100 
07110 
07120 
07 ISO 
071A0 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
071’ 90 
07300 
07310 
07320 
07330 
07340 
07350 
07360 
073/0 
07380 
07390 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
074/0 
07480 
07490 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
07580 
07590 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 
07700 
07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 


4 '1=EFFFCTIVF MIN IMUM ) = ' . 12// 

5 IX. ' TEMPERATURE PROCESSING Fl.AU" '. 12 » 2X .' RUNOFF BY ZONE OUTPUT'. 

6 ' 0PT.10N= '»!?// 

7 IX. 'FLAG TO FXTRAPOLAIF, TFHPFRATURFS < 0=FXTRAPOL ATE USING'. 

8 IX. 'GIVEN LAPSE RATES. l-AUTOHATTCALLY EXTRAPOLATE )='. T2// 

9 IX. 'FLAG TO CGMPUTF DEGRR E-HAYS- 1 2// 

A IX.'FLAO TO INDICATE INPUT TEMPS ARE MAX-MIN= ' . 12// 

B IX. 'START MC1NTH=^' . I2.2X. 'END MTJNTH== ' . J 2// ) 

5000 FURHA'K//' NUMBER Of SNOgMEl.T DAYS= '. IS .5X . 'NUMBER OF '. 

1 'ELEVATION ZONES= ' , 15// ) 

5500 F0RMAT</5X. 'HO TEMPERATURE LAPSE RATE DATA INPUT'/) 

6000 F0RMAT<//5X. 'RECESSION COFFFIECIFNT FACTORS'//' X FACTOR-'. 

1 F9.6.' Y FACIOR-' .F9.6//' INITIAL RUNOFF VALUE- ' » F9 , 3 . 

2 3X. 'L AG=' . 13. ' HOURS') 

6500 F0RMAI</5X. 'AREA IN EACH FL.EVATION ZONE'// 

1 ' ZONF ' »5X. ' AREA' . IX. ' < ' . 3A4. ' ) ' > 

6900 F0RMAT</5X. 'HYPSOMETRIC MEAN ELEVATLON IN EACH ZONE'. 

1 IX. ' ( ' .A8. ' ) '//) 

7000 FORMAT! 1X.I4.7X.E10.4) 

7600 F0RMAT</5X. 'BASE STATION El. FVAT 1 OH ' . 

1 IX. ' ( ' . A8. ' ) '//> 

7700 F0RMAT<5X.E10.4) 

END 

SUBROUTINE L. APSE ( ST ATN . ND . N/. . M AXM J N » TFMPT . TH AX . TMI N » 

1 DTIR.UFIAG.MTHO.ZMEAN.IEXT. IDEGDY.T) 

C 

Ctt******ii.t*ftl.1h1i.*if1l.**ti.%*tt**%1H/.****t**1Ht*1l.t*%*****1ft*1tt*t***********t*** 

C 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c. 

c 

c 

r. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION - LAPSE IS A MODULAR TEMPFRAIURE PREPROCESSING ROUTINE 
FOR INPUT lEMPERAILIRES EXPRESSED AS MAX-MIN OR 
TEMPERATURES NOT ALREADY IN llFriRFF-DAYS OR FX- 
IRAPOL.ATED TO EACH ELEVATION ZONE, ROUTINE LAPSE 
TAKES MAX-MIN DAILY TEMPERA 1 IJRF5 IN DEGREES FROM T HF 
BASF STATIUN AND EX TRAPOI. A lES THE lEMPERATURF TO 
THF ZONE AND COMPUThS THE TEMPERATURE IN DE GRk F-DA VS . 
DEGREE-DAYS i;AN BE COMPUTED BY ONE LIE TWO METHODS'. 
MEAN OR EFFECTIVE MINIMUM. TEMPERATURES NOT IN 
DEGREE-DAYS OR INPUT PER ZONE CAN BE COMPUTED IN 
DEGREE-PAYS OR EXTRAPOLATED TO EACH EI.EVA1I0N 
ZONE IF LAPSE RATES ARE. PROVIDED, 

ARGUMENT LIST 


VARIAPI.E 

TYPE 

10 

DESCRIPTION 

STATN 

R*8 

I 

EL.EVATION LIE RECORDING STATION 

ND 

I«4 

I 

NUMBtR OF SNOUMEL.T DAYS 

NZ 

1*4 

I 

NUMBER LIE ZONES 

MAXMIN 

1*4 

I 

FLAG TO INDICATE IP TEMPS ARF MAX-MIN 

TMAX 

R*4 

I 

MAXIMUM TEMPERATURES IN DEGREES 

TMIN 

R*4 

I 

MINIMUM TEMPERATURES IN DEGREES 

IIKLAG 

1*2 

I 

UNI IS FL.ARCENGI.ISH OR METRIC) 

MTHD 

1*2 

I 

METHOD OF COMPUTING DF:GKEE DAYS 




(EFFECfIVE MINTMOM OR MEAN) 

ZMEAN 

R«B 

I 

HYPSOHEIRK; MEAN ELEVATION OF EACH ZONE 

lEXT 

1*2 

I 

FLAG TO EXTRAPOl.ATE 10 ELEVATION ZONES 

IDF6DY 

1*2 

I 

FLAG 10 COMPUTE DEGREE-DAYS 

TEMPT 

R*4 

u 

COMPUTED TEMPERATURE TN DEGREE DAYS 

T 

R«4 

I 

TEMPERAUIRES IN DEGREES TO BE PROCESSED 


EXTERNAL REFERENCES -- NONE. 


CALLED BY — MAIN (DRVSNO) 

COMPUTER/L ANCUAUE - IBM 360/91 AI GSEC/FOKTRAN IV 
DESIGNFR/PROGRAMMER - G . MAJOR . RESEARCH X DATA SYSTEMS. INC. 


C 
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07790 

C 

07800 

07810 

1 

07820 

C 

07830 

07840 

07850 

C 

07860 

C 

07B70 

07880 


07890 

C 

07900 

c 

07910 

c 

07920 

c 

07930 

07940 

c 

07950 

c 

07960 

c 

07970 

07980 

c 

0 7990 

c 

OBOOO 

c 

08010 

08020 

08030 

08040 

22 

08050 

08060 

C 

08070 

C 

08080 

C 

08090 

23 

08100 

600 

08110 

C 

083 20 
08130 

52 

083 40 
08150 
08160 
08170 

53 

083 80 
08190 

54 

08200 

605 

08210 

590 

08220 

C 

0B230 

C 

08240 

C 

08250 

C 

08260 

08270 

08280 

08290 

08300 

08310 

08320 

08330 

601 

08340 

602 

08350 

08360 

950 

08370 

C 

083B0 

C 

O83V0 

C 

08400 

08410 

08420 

08430 

604 

08440 

603 

08450 

C 

08460 

990 

08470 

08480 

08490 

701 

08500 

700 

08510 

03520 

03530 

C 

08540 

O35U0 

C 

0S560 

CttttilHi. 

08570 

c 

08580 

c 

08590 

c 

08600 

c 

0861.0 

c 

08620 

c 

08630 

c 

08640 

c 

08650 

c. 

08660 

c 

08670 

c. 

08680 

c 


HIMFNSION 7[;ONST(8) .THAX(36A) .TKINCIAA) i?KF:AH{8) » 
T<;<AAf8) .)lTLRC<AAf8) » TEMPT < 3 AA j 8 ) 

RfAL*f) ZHPAN»}>TATN»7r;rjNST 

INTEliFRiitZ MAXMTNfMTHDOIFLAGf TEXT? IDE8IIY 


IF<UFLAG.Fn.O) TO-O. 
TFUJFI-AG.FQ. 1 > TU = 32, 


CHECK IF TFMPFRATURF IS TO BF COMPIITFP IN DFlSHt: F-UAYS 

IFdDEPnY.EQ.O) GO TO GVO 

CHECK IF TEMPERATURES ARE HAX-MIN 

IF(MAXMJN.FQ.O) GO TO 5? 

CHECK METHOn OF COHPIJI.ING DFGRFF PAYS 

DO AOO I=1*NH 

IF<MTHD,EO. t ) GO TO 22 
IF<MTHD.En.O) GO TO 23 

.tF<0Fl.A6,FQ,0,ANP.TMTN(I) .t.T.O, > TM 1 N ( I ) ‘-‘O , 0 
IF<UFl AG.FQ, 1 , AND,1MIN< I ) ,l I ,32, ) TMIN< I )-32.0 

COMPUTE TEMPERATURE IN PFGRFh; DAYS 

T(I»] )=( <TMAX(I)+TMIN(I) )/2, )-TU 
CONTINUE 

GO TO 590 
CONTINUE 
DO A05 1=1 »NP 

IF<MTHD,Etl, 1 ) GO TO 53 
IF<MTHP,E0,0> GO TO 54 

IF(UFLAG,EO,0, AND.T< I fl>,LT,0,> T<T«1)=0, 

IF<0FLAG,EQ,3 , ANP , T ( I » 1 ) , I. T , 32 , > T< 1 » 1 )=32 , 

T ( T , 1)=T( T » t > -TU 
CONTINUE 
CONTINUE 

CHECK IF TEMPERATURE IB TO BE AUTOMAT K;AI. L Y FXTRAPOt. ATFP TO 
El.EUATION ZONE, IF NOT. USE THE LAPSE RATES GIVEN AS INPUT 

IF< IEXT,Ef),0) GO TO 950 
IF<UFI..AG,EQ,0> ZC0N = 100. 

IFIUFl AG.EQ , 3 > ZC0N=1000, 

PO A02 .3=1. NZ 

ZCONSTI J)=STATN-ZMEAN< J) 

00 AOl 1=1. ND 

TEMPT(I.J)=T<I. 1 ) + (7C0NST < J ) /ZCON ) SOTI. R ( I . 3 ) 

CONTINUE 
CONTINUE 
GO TO 990 
CONTINUE 

EXTRAPOIAIE TE HPT RATURES USING THE G.IVFN LAPSE RATES 

PO A03 J=3.NZ 
DO A04 1=1. NP 

TEMPT ( I . J)=T< 1 > 1 )+DTl R( I . J) 

CONTINUE 

CONTINUE 

PO 700 1=1. NP 
DO 701 .3 = 1. NZ 

IF<TFMPT<I. J> .LE,0. ) TEMPT < I . .) > =0 , 0 
CONTINUE 
CONTINUE 
RETURN 
END 

SUBROUT.TNF PRFSNO 

^H.^^t*1^******^^■***^^**H■*tl^****t*****■t■*t*tit**t**^■*1f■^H^**^^*1Hl■**iii■^*■»^ 

FUNCTION - PRFSNO CONFUTES THF PKE C 1 F IT A I I ON CONT R 1 BUT T NG 
TO RUNOFF ,tN FACH ELEVATION ZONE 
FROM NON-SNOU COVERFP AREAS Ok FROM THE TOTAL 
ZONE AREA, THE AllTORITHM FOR COMPUTING PRECTP 
FROM, NON-SNOW COVERED AREAS WAS PFVFl.OPFP BY 
RFSuijRCF CONSOL TANTS. [NC, 

COMMON BLOCK VARIABLES USF.P- 
VARIABI. F COMMON TYPE 10 


T CLTPAT R#4 I 
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0B690 C B Cl. I BAT R*4 I 

08700 C F-Kl-T.XP CI.Tr.iAT ,R*4 I 

087TO C AN HASOAT R*4 I 

08770 C P lUJTOAT R*4 □ 

08730 C UFL.AIj OPTOAT 1*2 I 

08710 C TPR BASDAT T*2 I 

08750 C 

0B7A0 C EXTFRNAL REFFRF.NCF.S - NONE 

08770 C 

087H0 C CAl.l.Eri PY - MAIN 

0B7V0 C 

OOBOO C COMPUTER/L ANRUAGF — IBM 3<S0/9I A l RSKC/FIIKT RAH JW 

038 TO C 

00870 C DESJONFR/PROGRAMMER — G.MAJOR» RF.SF. AKr;H S DATA SYSTEMS. INC . 

00830 C 

08B40 C*****************************************^****************************** 

088S0 C 
088^0 C 

08870 DIMENSION RIJNOF < 3 A6 » 8 > . THAX < 3 AA ) . TH 1 N ( 3 AA ) 

08880 REAl.*8 B ASIN > AREA . X . Y . SNOW . R . T Z » FP 

08090 INTFGFR*? IRON . MODF > IPRRIJN . IPI. T . IPR 1 NT » IJH. AH . ACT FI G.IZOHF. 

08900 1 TnrFI.8.MTHn».(TPR0C.IPR 

08910 C 
08970 C 
08930 C 

08940 C****** COMMON BLOCKS ****** 

089S0 C 

089 AO COMMON/Cl I D AT/T ( 3A A . 0 ) . S ( 3A A » 8 ) . PRFC I P ( 3 AA . 8 ) . ACT UAL < 3AA ) r 

08970 I TCRIT13AA) .ND 

08980 C 

08990 C0MM0N/0I.ITnAT/P<36A.8) rQNPIX(3A7) .XK3A7) , T FMPT < 3 AA . 8 ) 

09000 C 

09010 COMMON/OPTDAT/ISTMTH. IFNMTH. IRUN.MODF. IPRRUH. IPI. T . 1 PK I NT . UFI. AR . 

09020 1 ACrFI..H.IZnNE(3) .TDTFLR.MTHD.TrPROC 

09030 C 

09040 COMMON/PASDAT/BASINl?) » ARFA < 8 ) . X . Y . DTLR ( 3AA » 8 ) » AN ( 3A A . 8 ) . 

09050 I CS(3AA»8)»CR<3AA) .N7.IYFAR. IPR<3AAj8) 

090A0 C 
09070 C 

09080 C 7FR0 OUT PRFC I P .T T AT I ON ARRAY FOR FACH RUN 

09090 C 

09100 DO 15 J=1.ND 

09110 DO lA T-1.N2 

09170 P(J.I)=0.0 

09130 16 CONTINUE 

09140 15 CONTINUE 

09150 C 

091A0 DO 80 J^^I.NZ 

09170 C 

09180 C CHECK IF PRh'CIP INPUT IS BY 7UNF 

09190 C 

09700 IF ( I70NE < 2 > . FQ .0 ) NP7^1 

09710 IF( I7DNF ( 7 ) , FQ . 1 1 NP7 = J 

09770 C 

09730 C INITIALT7F ACCUMUl AIFD SNOW TO 0 

09740 C 

09750 SN0U=0.n0 

097A0 C 

09770 C INITIALIZE NON-SNOW COUFRFD < SH1JW0 ) AND TIITAl SCA (SNOHl) 

09780 C TO 0 

09790 C 

09300 DO 90 I-l »ND 

09310 SN0W0--0.0 

09370 SNOWl-0.0 

09330 IF< ITPROC.FQ.O) T7=T<I.J) 

09340 IF < ITPROr; . FH , 1 ) T7 = TFHPT ( 1 . J ) 

09350 C 

09360 C CHECK WHICH PRFCIF METHOD TO USE I IPR^O IS FOR 

09-5/0 C NUN-SNOW COUFREP AREAS AND tPR-1 IS FOR TOTAL AREA 

09380 C 

09390 1F( IPR< I ,.J) .FQ.O) SHrjUO=^S < 1 . .1 ) 

09400 IF< IPRl I . J) ,F.Q. t ) SN0W1=S<I.J) 

09410 C 

09470 C COMPUTE RUNOFF FACTOR 

09430 C 

09440 R=T7*AN<I.J> 

09450 C 

094A0 C CHECK IF ANY PRECIPITATION IN 70NF 

094/0 C IF NO PREC.IPITATION THEN CHECK SNOW TO BE MELTED 

09480 C 

09490 IF( ABSIPRFCIPI I .NP?> ) .LT.O ,00001 ) GO TO 1? 

09500 C 

09510 C CHECK FOR SNOWFALL IN ZONE 

09570 C IF TEMPERATURE IS LESS THAN INPUT CRITICAL TEMPERATURE 

09530 C THFN TREAT PRECIPITATION AS SNOWFALL 

09540 C 

09550 IFITZ .GT.TCRIT(I) ) GO TO 11 

095A0 C 

09570 C ACCUMUl ATF SNOWFALL IN 7UNF: TO PF MFl.TFD LATER 

09580 C 

09590 SNOU=SNDW-FPRFCIP(I.NP?> 
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09«00 
09610 
09620 
096S0 
09660 
09650 
09660 
09670 
09680 
096V0 
09700 
09710 
09720 
09 7. <0 
09760 
097;i0 
09760 
09770 
09780 
09790 
09800 
09810 
09820 
09830 
09860 
098S0 
09860 
09870 
09RPO 
09890 
09900 
09910 
09920 
09930 
09960 
09950 
09960 
09970 
09980 
09990 
10000 
10010 
10020 
10030 
10060 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10160 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10260 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10360 
10350 
10360 
10370 
103R0 
10390 
10600 
10610 
10420 
.1.04 30 
10440 
! 0450 
10460 
10470 i 
10480 
10490 I 


C 

C SET COMPUTED PREC.IP TO 0 AND CALCULATE PPECIP POR 

C RUNOEF FROM NON-SCA 

C 

P<I» J)=0,0 
00 TO 90 
C 

C ASSTON INPUT PRECIP TO COMPUTED PRECIP 

C 

11 P<I, J)=PRECIP(1»NPZ) 

C 

C 

C CHECK PRECIPITATION IN ZONE TO DE MEl.TED 

C 

12 IF(DABS< SNOW) .LT .O.OOOOIDO > GO TO 90 
C 

C CHECK TEMPERATURE IN ZONEtCALCUI. ATE RUNOEF PROM PRECIP 

C HELD AND COMPUTE AMOUNT OF SNOW TO BE MELTED 

C 

IF(TZ.LT.O.DO) GO TO 90 
EP=R*< 1 ,-SNOMl ) 

IF(R.6T.SN0U) GO TO 13 
P<I. J) = P(I».J)+EP 
C 

C SET ACCUMULATED SNOW TO SNOW MINUS RUNOFF 

C 

SNOW=SNOW-R 
GO TO 90 
C 

C CALCULATE EXTRA RUNOPF FROM PRECIP HELD 

C COMPUTE PRECIPITArillN FROM SNUW ACCUMULATED AND TOTAL SCA 

C AND RESET ACCUMULATED SNOW TU 0 

C 

13 F<I, J) = P(I,J) + <SNOU*(l.-SNOgi > > 

SNDU^O.O 

C 

C COMPUTE PRECIPITATION FROM AMOUNT OF SNUW COVF.R 

C 

90 F( I » J)=P< I » J)*( 1 .-SNOWO) 

80 CONTINUE 
C 

999 RETURN 
END 



SUBROUTINE 

RUNOPF 



C.*t**tt*tt*t******t*ii*t*******t*******ttt**tt*t*********%*T*t****t*t**t* 

c 

FUNCTION 

- THIS ROUTINE 

COMPUTES THF: PREDICTED STREAM RUNOPF 

C 


BASED ON 

THE 

SNOHHEI..T-RUNOPF MODEL EOUATIONS BY 

c 


RAN60 AND MARIINEC, RUNOFF CAN BE COMPUTED IN FORCAST 

c 

c 


MODE BY 

UPDATING WITH ACTUAL. DATA EVERY 7TH DAY, 

c 

c 

COMMON BLOCK VARIABLES USED 

c 

VARIABLE 

COMMON 

TYPE 

10 

c 

T 

Cl.lDAT 

R*4 

I 

c 

S 

CL I DAT 

R«4 

1 

c 

P 

OUTDAT 

R*4 

I 

c 

ONP) X 

OUTDAT 

R*4 

0 

c 

DTLR 

BASOAT 

R*4 

I 

c 

AN 

BASLiAT 

R«4 

I 

c 

XI 

OUTDAT 

R«4 

0 

c. 

AREA 

BASDAT 

R*8 

I 

c 

X 

BASOAT 

R»8 

I 

c 

y 

BASDAT 

R«8 

I 

c 

ND 

CL I DAT 

l»4 

I 

c 

NZ 

BASDAT 

1*4 

I 

c 

CS 

BASDAT 

R*4 

I 

c 

CR 

BASDAT 

R*4 

I 

c 

UFLAG 

OPTDAT 

1*2 

I 

c 

ACTUAt 

CL I DAT 

R*4 

I 

c 

IZONE 

OPTDAT 

1*2 

I 

c 

MOPE 

OPTDAT 

1*4 

I 

c 

PPR 

GAGE 

R*4 

I 

c 

PDM2 

GAGE 

R*4 

I 

c 

c 

ONS 

GAGE 

R*8 

I 

c 

c 

EXTERNAL 

RFFFRENCFS 



c 

I OUT 

- UTILI'IY ROUTINF TO OUT PUT RESUL TS IN MONTHLY AND 

c 

c 


DA II V 

FORMAT . 

c 

r 

CAL l.FD PV 

-- MAIN 



c 

c 

c 

COMPUTFR/l AHGLIAGF — 

IBM 

360/91 AT GSF C/PURTRAH IV 

DESIGNFR /PROGRAMMER 

— G 

. MAJOR f RESEARCH X DATA S VST EMS » INC . 
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10500 

lOMO 

10520 

1O5U0 

10540 

10550 

105#.0 

10570 

105B0 

10590 

!0<SOO 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

106&0 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

lOSlO 

10820 

10030 

10840 

10850 

10860 

10870 

10880 

10890 

10900 

10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 


C 

DTHFNKTIIN 7 ( 8 ) f KUNIJF < 366 r 8 > 

C 

REAL *8 ARfi » QN 8 1 ASUM » COV » PRUNOK ( 367 ) r 8ASX N f AREA . X . Y t SUHRO 
J[Nrt:i5KK*2 IRUNfHdDEf XPRRUNf TPl. f r IPRlNTpUR.ARfACTFLGF I70NE» 

1 inTFI.GiHTHIt. ITPROC. IFR» TClK. (> f KOFI G f COFl.Gf UTEI.B » I OH. G 
INTK|jER* 2 POFl.G 
C 
C 

C«4:««nPHHnN BLOCKS**** 

c 

COMMON7CL IDAT/T ( 366f 8 > f S ( 366 f 8 ) » PRECI P ( 366 » 8 ) » Ain UA). < 366 ) f 
1 TCRITI366) fNB 
C 

COHHON/OliTnAT/P(366F8) FnNPlXL367> f X 1 ( 367 > > 1 EHPT < 366 f 8 ) 

C 

COHMON/OPTnAT/ISTMTHF IENHTHf 1RUNfM0J.iEf IPRRUHf IPLTf IFRINTfUFLAU* 
1 ACTFLn, 170NE<3> F IDTFl.fiFMTHDF ITPROC 
C 

COMHON/BASnAT./BASIN<2) f AREA<8) fXf YfI.i| I. K < 366 f8 > f AN < 366 f 8) f 
1 CS<366f 8> tCR<366 ) fNZf IYEARf IPR<366f8) 


C 

COMMON/GAGF/ONRf PUR 1367) fPBH2<367) 

C 

C 

C ZERO OUT RUNOFF ARRAY FOR FACK RUN 

C 

DO 10 I1»1f367 
QNPixi n )=0,0 
XII II >-0.0 
PRUN0F(I1)=0,D0 
10 CONTINUE 
C 

C INITIAl.IZF RUNOFF AND CHFCK UNITS FLAG 

C 

IFIUFL AG.EQ.O) COV-0 . OlDO/86400 . DO 
IF (UFIAG.EQ. 1 > C0V^0.O833D0/864O0.D0 
C 
C 

C COMBINE SNOW COVER AHU PREC IP.U AT 1 ON DATA AND ACCUMUI. AIE 

C FOR EACH ZONE. 

C 

NDAY=0 

C 

C CHECK FORCAST MODE 

C 

IFIMODF.EQ.l) NDAY=7 
DO 3 I=IfND 
ASLIM^O.DO 
DO 2 J^IfNZ 
C 

C CHECK IF TEMPFRATURF. AND RUNOFF (;aF:F"Flf;IF:HTS ARE INPUT 

C BY ZONES. 

C 


IF ( IZ0NE<3> .ECl.O) NCZ-l 
IF( XZONFI 3> .EQ. 1 ) NC7»J 
C 

IF< ITPROC.EQ.O) Z<J)=^T<1fJ) 

TFI ITPROC .EQ. 1 ) Z I J ) =TEMPT < I f J ) 

IFLZIJ) .1 T.O.DO) 7<J>=0,n0 
C 

C COMPUTE SNOWMELT DF:PTH IN EACH ZONF 

C 

RUNOF ( I F J ) =AN ( I F J ) «Z ( J ) «S ( 1 F J ) +P < 1 F J ) 

C 

C CHECK RUNOFF COEFFICIENTS FOR RAIN OR SNOW (CR OR CS> 

C 

IF(CRd) .EQ.0.0) CRl-CSI I fNCZ) 

IFICRI I > .GT.0.0) CRl=Cftll) 

C 

C COMPUTE SNOWMELT RUNOFF 

C 

SUMRO-(CS<lFNf;Z)*AN<lF J)*Z< J>*S(If J>+CR1*P<If.J>>*(ARFA<,1>*(:0V) 
ASUM-ASUH-FSUHRO 
2 CONTINUE 

C 

C COMPUTE RECESSION COEFFICIFNT FOR BASIN 

C 

ARG^l .DO-<X«QNS«*Y) 

IF(I.EQ.l) PRUNOFI 1)-=QNS 
C 

C CHECK FOR STREAMFLOW LAG 

c' CHECK IK STREAMFLOW LAG IS FROM PREVIOUSIDAY N-1) RUNOFF 

C OR FROM DAY N-2 RUNOFF 

C 

IFIPPRI I > .FQ.O. ) PRUNOF ( I )-PDM2< I) *PRUNUF ( 1-1 ) + ( 1 . -PDM2 < I ) )* 

1 PRUNOFII) 

C 


IFIPDRI I > ,EO.O. > PDR1“1.0 
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TK<PDR< I ) .OT.O. ) PJ]TRl = PDR< I ) 


11-400 
11410 C 
11420 C 

1 1430 C COMPIITF STRS AHFl.OW 

11440 C 

11450 QNPl X< I > = (PT.iRi*PRUNOF( I l-Kl , -PURI ) *ASUM ) *AKB+ ( X*RHS**< 1 . UO+Y ) ) 

11460 PRUNOF( I+l >^ASUM 

11470 C 

114S0 C IF IN FORFCAST KODF SUUSH UJTF IHF RUNOFF VALUF FUR IMF 

11490 C NEXT DAY WIVH THE AllTUAl. RUNOFF VALUE EVERY SEVENTH DAY 

11500 C 

11510 IF<NI»AY.FQ. I > GO TO 850 

11520 UNS-=QNP1X(I> 

11530 GO TO 900 

11540 850 IF(NOAY.GT.ND) NtiAY=ND 

11550 QNS=ACTUAL<NDAY) 

11560 NDAY=NDAY+7 

11570 900 CONTINUE 

11580 C 

11590 X1(I)=I 

11600 3 CONTINUE 

11610 C 

11620 XI <ND+1 >^X1 (ND)+1 . 

11630 C 

11640 C WRITE PREDICTED STREAMFLOW FOR EACH ZONE 

11650 C 

11660 IF(IPRRUN.EQ.O) GO TO 100 

11670 C 

116H0 I0Fl.G=-0 

11690 ROFLO=0 

11700 C0FLG=0 

11710 DTFLG=0 

11720 TOFLG-^O 

11730 P0FLG=1 

11740 CALL- IOUT(NZ,BASIN> lYEARf IZONE.lSTMTHr IE.:NMTH.TfPRE:C\Pf Sf IPKf 

11750 1 RUNnF»(lNPlX» ACTUAL fCSf AN »DTl.R*UFLAI>» IOKL.G»RnFl.G»CnFLG»OTFl.GF 

11760 2 THAXtTHINfTCRITFCR»P»TOELBfPQFLri) 

11770 100 CONTINUE 

11780 C 

11790 C WRITE COMPUTED AND ACTUAL SNOWMFl T RUNOFF 

11800 C 
IIBIO C 

11820 1DFL.6=^0 

11830 R0FL6=1 

11840 C0FL6=0 

11850 PRTFL6=0 

11860 T0FLG«0 

11870 P0FLG=0 

11880 CALL lOUT <NZf BASIN. I YEAR. I2UNE . ISTMTH . lENMTH » T » PRECIP . S» IPR » 

11890 1 RUNOF. QNPlX.ACTUAL.es. AN. DTLR.UKLAOflrtFLG.ROFLG.COFl.G.PRTFLGf 

11900 2 TMAX.TMIN.TCRlT.CR.P.TOFLG.fOELG) 

11910 e 
11920 C 
11930 C 

11940 999 RETURN 

11950 END 

11960 C 

11970 C 

11980 C 

11990 C 

12000 SUBROUTINE GOOD< QNPl X . ACTUAL . ND > 

12010 C 

12020 C*********************************************************************** 

12030 C 

12040 C FUNCTION - GOOD COMPUTES THF NASH-SUTCL IFFE GUDDNESS OF FIT 

12050 C MEASURE AND CALCULATES THE TOTAL SIMULATED AND 

12060 C ACTUAL VOLUME AND THF. PER CENT SEASUNAL DIFFERENCE 

12070 C BETWEEN THE ACTUAL AND SIMULATED STREAM RUNOFF. 

12080 C 
12090 C 

12100 C ARGUMENT LIST - 

12110 C VARIABLE TYPE 10 DESCRIPTION 

12120 C -- 

12130 C QNPIX R*4 I ARRAY UP SIMULATED STREAM RUNOFF DATA 

12140 C ACTUAL R*4 I ARRAY OF AClUAI. STRFAM RUNOFF DATA 

12150 C ND 1*4 I NUMBER OF SNOWMELT DAYS 

12160 C 

12170 c outputs; 

12180 C XN8R2 - NASH-SUTCI. IFFE GOODNESS OF FIT MEASURF 

12190 C VUL - TOTAL VOLUME UF COMPUTED STREAM RUNOFF 

12200 C ASLIM - TOTAL VOLUME OK ACTUAL STREAM RUNOFF 

12210 C PCT - PER CENT SEASONAL DIFFERENCE BETWEEN ACTUAL 

12220 C AND SIMULATED STREAM RUNOFF 

12230 C AHEAN - MEAN ACTUAL STREAM RUNOFF 

12240 C QMFAN - MFAN COMPUTED STREAM RUNOFF 

12250 C 

12260 C 

12270 C 

12280 C EXTFRNAl. REFERENCES -- NONE. 

12290 C 
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12300 C CAl.l.ED PY — MAIN. 

12310 C 

12330 C COMPUTER/l.ANGUAGF - IPH 3A0/Y1 A( BSF- C/FORTRAN IV 

123.10 C 

12340 C DESIGNF.R/PROGRAMHER -- G»HA.K)Kf RESEARCH I DATA SYSTFKSf INCJ. 

12.1S0 C 

12360 C*««**4*«**««*««*«*4«***«*»»«***1‘««*«**«***««**«**»*«>tt«««f4‘««1t«»«4:|i«*$« 

12370 C 
12380 
123‘?0 C 
12400 C 
12410 C 
12420 C 
12430 
12440 
124K0 
12460 10 

12470 
12480 
12470 
12500 C 
12510 C 
12S20 C 
12530 
12540 
12550 
12560 HO 
12570 C 
12580 
12590 
12600 C 
12610 C 
12620 C 
12630 
12640 
12650 
12660 
12670 
12680 

12670 30 

12700 
12710 C 
12770 
12730 C 
12740 C 
12750 C 
12760 
12770 C 
12780 
12790 C 


12B00 

12810 

12B30 

128.T0 

12840 

12BH0 

12860 

12870 

12800 

12890 

12900 

12910 

6000 

1 

5500 

HOOO 

1 

6500 

1 

2 

C 

FORMAT!/' TOTAL COMPUTED VOLUME- '»K1H,4»/ 

' MEAN COMPUTED VOLUME- '»F15.4//1 

FORMAT!/' GOODNESS OF FIT ME ASURE- ' » FI H . 4// > 

FORMAT!//' TOTAL ACTUAL STRE AMFLOW= ' » F 1 5 . 4 f / 

' MEAN ACTUAl STREAMFl.OW- 'fE15.4//) 

FORMAT!//' PERCENT SEASONAL D I FFERENCE= ' f F 1 5 , 4// ) 

RETURN 

END 

SUPROUTINE I0UT!NZfBAS1Nf IYEARf IZONF f I ST MT H f IE.NMTH f T f PRECI P f S 
IPRfRUNOEfUNPIXf ACTUAL fCSf AN Fn Tl.RFlIFl. AG FtnR.GFROFLGFCOFl.GF 
DTFLGfTMAXfTMINfTCRITfCRfPfTOFLGfPOFLGI 

12930 

c 





12940 

c 

FUNCTION 

- I OUT 

IB 

A UTILITY ROUTINE TO PRINT OUT MUNTHI.Y 

12950 

c 


AND 

DAILY VALUES IN TABULAR FORM FOR VARIOUS 

12960 

c 


SNOWMELT 

RUNOEE MODEL PARAMETERS. 

129/0 

c 





12980 

c 





12990 

c 

ARGUMENT 

l.IBT - 

- 


13000 

c 

VARTAPLE 

TYPE 

10 

DESCRIPTION 

13010 

c 


— 

-- 


13020 

c 

NZ 

I«4 

10 

NUMBER OF ZONES IN BASIN 

13030 

c 

BASIN 

R*8 

10 

BASIN NAME 

13040 

c 

lYEAR 

1*4 

10 

MODEL YEAR 

13050 

c 

I ZONE 

1*2 

I 

FLAG FUR CHECKING IF INPUT IS BY ZONE 

13060 

c 

ISTMTH 

1*4 

I 

START MONTH 

13070 

r 

lENMTH 

1*4 

I 

END MONTH 

130HO 

c 

T 

R*4 

It) 

TEMPERATURE DATA 

13090 

c 

PRECIP 

R»4 

10 

PRECIPITATION DATA 

13100 

c 

S 

R*4 

10 

SNOW COVERED AREA 

1 3 1 .t 0 

r. 

I PR 

1*4 

10 

PRF.CIPITAI ION METHOD 

13120 

c 

RIJNOF 

R*4 

.(() 

DEPTH BY ZONE 

13130 

c 

ONF l X 

R*4 

10 

DAILY STREAM RUNOFF 

13140 

c 

ACTUAL 

R*4 

.to 

ACTUAL STREAM RUNOFF 

1 31 50 

r 

CS 

R*4 

.10 

RUNOFF CDF FFICIF_NTS FOR SHOW 

13160 

c 

AN 

R*4 

■to 

DFGRF’E DAY FACTORS 

1 31 70 

c 

DTI R 

F:*4 

T(.i 

TEMPI RATtlRF. 1 APSE KATE CORRECTION 

131H0 

c 

TMAX 

K*4 

(1) 

I T A X T M U M 1 K M F' E R A T U R e S 

1 ‘'.I 90 

r 

ThI N 

f:*4 

T(l 

hlNIMLIH TF. MPERATURF S 


DIMENSION ONPl X ( 367 )» ACTUAL <366) 


COMPUTE MEAN AND TOTAL ACTUAl, STRKAHFLOU 

ASUM=0.0 
DO 10 T=lrND 

ASUM=ASUM+ACTUAL < 1 ) 

CONTINUE 

DAYS=ND 

AMEAN-ASUH/DAYS 
MRITE(6»5000) ASUMfAMFAN 

CALCULATE TOTAL VOLUME 

V0l. = 0,0 
DO 50 T=IfND 

V01. = V01.+QNP1X< I ) 

CONTINUE 

QMEAN = VOI./DAYS 
WRITE(6f6000) VOLfQMEAN 

CAl.CULATE NASH-SUTCLIPFE GOODNESS OK FIT MFIASURE 

E = 0.0 
F^O.O 

0NEN=1 ./DAYS 
DO 30 T-1»ND 

E = E+( ACTUAL < I)-AMEAN>**2 
F =F+< ACTUAL < 1 1 -QNP1X< I > )**2 
CONTINUE 

XNSR2-(0NEN*E-0NEN*F>/<0NEN*E> 

MRITE<6t 5500) XNSR2 
COMPUTE SEASONAL DIFFERENCE 
PCT=< ( ASUKi-V0L)/ASUM)*100. 

WRITE(6.6500) PCT 
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13200 

C 

TCRIT 

R*4 

TO 

CRITICAL TEMPERATURE 

13210 

C 

CR 

R*4 

10 

RUNOFF COEFFICIENTS FOR RAIN 

13220 

c 

P 

R*4 

TO 

PRECIPITAION CONTRIBUTING TO RUNOFF 

13330 

c 

UFl AG 

1*2 

1 

UNITS FLAG 

13240 

c 

lOFLG 

1*2 

I 

FLAG IK fEMPERATlIRE, PRECIPITATION AND SNOU 

13250 

c 




COVERED ARfc'A IS TO BE OUTPUT 

13260 

c 

ROFLG 

1*2 

I 

Ft.AG IF DAILY AND ACTUAL STREAM RUNOFF IS TO 

13270 

c 




OUTPUT 

13280 

c 

COFLG 

I*? 

I 

FLAG IF RUNOFF COEFFICIENTSfDEGREE DAY 

13290 

c. 




FACTORS AND PRECIPITATION METHOD INDEX 

13300 

c 




ARE TO »E OUTPUT 

13310 

c 

DTFLG 

1*2 

I 

FLAG IK LAPSE RATE AND CRITICAL 

13320 

c 




TEMPERATURE IS TO BE OUTPUT 

13330 

c 

TOFLG 

1*2 

I 

FLAG IF MAX-MIN.CRTITCAL TEMPS ARE TO 

13340 

c 




BE OUTPUT 

13350 

c 

POFl.G 

1*2 

I 

FLAG IF DFPTH BY ZONE AND COMPUTED 

13360 

c 




PRECIPITATION CONTIBUTTNG TO RUNOFF 

13370 

c 




ARE TO BE OUTPUT 

13380 

c 





13390 

c 

EXTERNAL REFERENCES 

- NONE. 

13400 

c 





13410 

c 

CALLED FROM 




13420 

c 

SNODRO 




13430 

r- 

READIN 




13440 

c 

RUNOFF 




13450 

c 

PRESNO 




13460 

c 





13470 

c 

LANGUAGE/COMPUTER 

- 

FORTRAN IV/IBM 360/91 Al GSFC 


13480 C 

13490 C PROGRAMMFR/UhSIGNfR - G. HAJORr RFSFARCH S I>ATA SVSTFMS t INC; . 

13300 C 
13310 C 

13520 C=»= = -*=»*====»^==' ======*==»»«*«-=- ======-==== ====---=^==== ===-*‘*‘=^--:-= ==‘*‘=^“=- 

13530 C 

13540 REAL»6 BASIN ( 2 ) f CHP> ACT » TX > TN 

13550 INTEGER*? IZONE < 3 ) f UFLAG* lOFLGt ROFl.G » COR.Gf DTFLG . IPRC 36«f 8 ) » 

13560 1 TOFl-GtPOFLG 

13570 C 

13580 DIMENSION NDAYSC24) >H0(24) r ARENAHC8) > AO ( 12 ) r »()< 12 ) r CO ( 12 > > 

13590 1 T<366>8) r PRECIP ( 366r 8) > S < 366 r 8 > r RUNOF < 366 > 8 > f QNPl X ( 367 ) r 

13600 2 ACTUAI.C366) ,CS<366i8) . ANC 366 » 8 ) » DT I.R < 366* 8 ) » UKX 12 ) » HP( 12 > 

13610 DIMENSION C 1 < 1 ? ) , AA < 1 ? ) , D T ( 1 2 > * PRE < 1 ? ) . II < 1 ? ) * PI < 12 ) * SN< 12 ) 

13620 DIMENSION CMP ( 12 > t ACT < 12 ) * TX < 12 ) . TN< 12 ) t TC < 12 ) * CRl ( 1 2 ) . P2 ( 1 2 ) 

13630 DIMENSION PC 366* 8 ) * TMAX < 366 ) r TMIN ( 366 > * TCRIT < 366 ) * CR < 366 ) 

13640 C 

13650 DATA NDAYS/31 1 29 * 31 * 30 * 31 * 30 * 31 i 31 * 30 1 31 • 30 > 31 * 12*0/ 

13660 BATA ARENAM/ ' A ' * ' B' . 'C ' * ' D ' * ' E ' * ' F ' * '^G ' * 'H ' / 

13670 DATA M0(1)/4HJAN / 

13680 DATA M0C21/4HFEB / 

13690 DATA M0C3)/4HMAR / 

13700 DATA MO(4>/4HAPR / 

13710 DATA M0C5)/4HMAY f 

13720 DATA M0<6)/4HJUN / 

13730 DATA MOC 7)/4HwlLIL / 

13740 DATA M0<8)/4HAUG / 

13/50 DATA H0(9)/4HSEP / 

13760 DATA M0C10)/4H0CT / 

13770 DATA MO<11>/4HNOV / 

13780 DATA M0(12)/4H0EC / 

13790 DATA C1/12*'CS '/ 

13800 DATA AA/12*'AN '/ 

13810 DATA TX/12*'MAX TEMP'/ 

13820 DA1A TN/12*'I1IN TEMP'/ 

13830 DATA Tf;/17*'TCRI '/ 

13840 DATA CRl/12*'CR '/ 

13850 DATA DT/3 2* ' DTI. R ' / 

13860 DAfA PRE/12*'PR '/ 

13P70 DATA T1/12*'DD '/ 

13880 DAIA P1/12*'PREC'/ 

13890 DATA SN/12*'SCA '/ 

13900 DATA CMP/12*'C0MPUTED'/ 

13V10 DATA ACT/l?* 'ACTUAL '/ 

13920 DATA P2/12*'CPRE'/ 

13930 DATA DP/l 2* ' DPTH ' / 

13940 C 

13950 DO 60 1^1*32 

13960 J=I+12 

3 3970 MOCJ)=MO<I) 

13980 NDAYSC J)=NDAYSCI ) 

13990 AOCD-O.O 

14000 e0(I)-0.0 

looso ccun=o,o 

14020 60 CONTINUE 

14030 C 

14040 C COMPUTE NUMBER OF MtJNTHS AND CHECK IF GREATER THAN 6 

novio c 

14060 IDAT7-0 

14070 NMONTH=( IENMTH-ISTMTH)+1 

140SO NM1=NM0NTH 

14090 IF(NMnNTH.GT,6) GO TO 20 
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pp 

14l\0 ?o 
lAJ'/O 

so 

14MP C 

lAjr.o c 

141AO C 

14170 

14180 

141V0 C 

14700 C. 

14210 C 

14220 

14230 

14240 

14250 

14260 C 

14270 C 

14280 C 

142V0 

14300 

14310 

14320 

14330 

14340 

14350 105 

14360 C 
14370 C 
14380 C 
143V0 
14400 
14410 C 
14420 C 
14430 C 
14440 C 
14450 C 
1446P 
14470 
14480 
14490 
14500 
I45T0 

14520 100 

14530 C 

14540 C 

14550 C 

14560 

14570 

14580 

14590 

14600 

14610 

14620 101 

14630 C 
14640 C 
14650 C 
14660 
14670 
14680 C 
14690 C 
14700 C 
14710 
14720 C 
14730 C 
14740 C 
14750 C 
14760 
14770 
14780 
147V0 
14800 

14810 110 

14820 C 
14B30 C 
14840 C 
14850 
14860 
14870 
14880 C 
14890 C 
14900 C 
14910 C 
14920 130 

14930 
14940 
14950 
14960 
14970 C 
14980 C 
14990 C 


GO TO 30 

t HA 7 7=1 

IENP=ISTMTH+5 

CONTINUE 

CHECK IF HORE THAN 1 YEAR IS PEINfj MOUEt, I. EO 

IF(ieNHTH.l,E.12) IY=*IYEAR 
lElIENHrH.GT.l?) lY=TYEARfl 

LOOP OVER NUMBER OF ZONES 


DO 50 J=1 I NZ 
IFLAG=0 

IFIIDATZ.FQ.O) IEND=1ENHTH 
URl EE (6» 9999) 

CHECK IF POELG FOR COMPmEU PRECIP OUTPUT 

IFIPOFLP.FQ.O) 00 TO 105 
HRITE<6f 1201 > 

WRITE (6r 1000) BASI N . I YE AR i ARENAM < J > » (HO (Ml ) » Ml-ISTMTH* lENW > 
IF(NM0NTH,8T.6) NM1*6 

WRITE(6» 1009) (DP( IN) f P2(IN) . IN=^1 rNMl ) 

GO TO 300 
CONTINUE 

CHECK COFl.G FOR OUTPUT PARAMETERS 


1F(C0FLG.ECI,0) GO TO 100 
J1=J 


CHECK IF INPUT IS BY ZONE ANI.I WRITE OUT HEIABEK INFORMATION FOR 
RUNOEF CnEFFTCXENrS(CS) fOEGREE »AY KACfURS(AN) AMD TEMPERATURE 
LAPSE RATESirm.R) 

IF( 1Z0NE(3> ,FH.O) Jl=l 
URITE(6rl001> 

WRITE(6» lOPO) BASIN. IYEAR,AKE:NAK( J) F (MO (Ml ) . Ml = I STMTH » 1 H NH ) 
IF(NM0NTH.fiT.6) NM1=6 

WRITE (6. 1 010) ( AA( IN) .Cl ( IN) fCRl < IN) .PRE( IN) . lH-1 >NH1 ) 

1.0 TtT 300' 

CONTINUE 

CHECK DTELB FDR OUTPUT PARAMETERS 

IF(OTFLG.EQ.O) GO TO 101 
WRl TE(6»2001 ) 

WRITE (6. 1000) BASIN. I YEAR. ARE NAM(J) . (M0(M1 ) . Ml^ ISTMTH . lENU ) 
IF(NM0NTH.GT.6) NH1=6 

WRITE(6. 101 1 ) aiT(.TN) . TC( IN) . IN=^1 .NM.1 ) 

GO TO 300 
CONTINUE 

CHECK lOFLG FOR OUTPUT PARAMETERS 

IF( lOFLG.EQ.O) GO TO 110 
J2 = J 

CHECK IF INPUT BY ZONE 

IF{JZONE(?) .FO.O) J2=l 

WRITE HEADER INFORMATION FOR TEMPERATURE ( T ). PREC I P 1 TAT I ON 
(PRECIP). AND SNUU COVERED ARFA(S). 

URITE<6. 1501 ) 

WRITE (6. 1000) BASIN. 1 YEAR. ARENAMCJ) . <M0(M1 ) . Ml “ I S ( MTH . 1 F ND ) 
IE(NH0NTH.GT.6) NH1=6 

WRITE(6.1510) (T1(IH).P1(IN)»SN(JN).IH-1.NM1) 

GO TO 300 
CONTINUE 

CHECK ROFl.G FOR OUTPUT PARMATFRS 

IF(ROFLG.FO.l) GO TO 130 
IF(TnFLG.EQ.l) GO TO 131 
GO TO 300 

WRITE HFADFR INFORMATION FOR SIHULATEI.I RUNOEE (ONPIX) AND ACTUAl 
(ACTUAL) BATA 

WRITE(6.2002> 

WRITE (6, 3000) BASIN. I YEAR. (MO (Ml ) .Ml^ISI HTH. lEND) 
IF(NM0NTH.GT,6) NM1=6 
WRITE (6. 30 10) (CMP( IN) . ACT( IN) . IN-1 .NHl ) 

GO 10 300 

CHECK TOFLG and OUTPUT MAX-HIN HEADER IHEORMATION 
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15000 

15010 

15020 

15030 

131 

1 5040 

300 

15050 

C 

15060 

C 

150/0 

c 

15080 

c 

1 5090 

c 

15100 

c 

1.51 10 
15120 
5 51 30 
15140 

5 

5.51 50 

c 

15160 

c 

151 70 

c 

15190 

c 

15190 
J 5200 
15210 
1 5220 
15230 
15240 

c 

15250 

15260 

ril 

15270 

152S0 

15290 

156 

15300 

155 

15310 

C 

15320 

C 

15330 

C 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

C 

15420 

15430 

82 

15440 

15450 

15460 

15470 

15480 

151 

15490 

160 

15500 

C 

15510 

C 

15520 

15530 

15540 

15550 

15560 

15570 

C 

15580 

15590 

162 

15600 

15610 

15620 

163 

15630 

161 

15640 

C 

15650 

C 

15660 

C 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

C 

15740 

15750 

83 

15760 

15770 

157G0 

15790 

171 

15800 

170 

15810 

C 

15820 

C 

15830 

C 

15B40 

15850 

15860 

15870 

15980 

15890 

C 


WRinr<i&»3ooi ) 

WRITF (6? 3000) PASINt IYFAK» <H0(Hn » Ml -18TKTH » .IKNI.O 
TF<N)10NfH.l>T,6) NM1=6 

URITFC^f 30?0) <TX(IN)»TN(1N) fIN=l.NHl ) 

CONTINUE 

CHECK Fl.AfiS FOR MRITINO DATA IE OVER 6 MONTHS DATA AVAILABLE 


LOOP FOR NUMBER OF PAYS IN MONTH 

DO )0 ID=1>31 
lUTCH-TIi 
IS=ISTMTH 
00 15 IM=1»NM0NTH 


CHECK POFI 0 FOR OUTPUT DATA ANH BLANK OUT PAYS UHFJRF. 

NO DATA IS AVAILABI.E 

IF<POFL.G.FQ.O) GO TO 155 
A0( IH)-RUNOF(TWICH» J> 

B0< IM)=P< IUICH» J) 

IF(MOD< IYt4) .EQ.O) GO TO 81 

IF<IS.E0.?.0R.IS.Eft.)4.ANI.i.Ui.Gh ,?9) PO TO 156 
SF< ID.GT .NDAYSt IS) ) GO TO 156 
BO TO 180 
A0< TM)=999999, 

B0< IM)=999999. 

GO TO 180 
CONTINUE 

CHECK COFl.G FOR OUTPUT DATA AHP BLANK OUT PAYS WHERE DATA IS 
NOT AVAILABLE 

IFICOFLG.EQ.O) GO TO 360 
AO(IM)=AN< lUlCHfJ) 

BQ(IM)~CS(IUICHtJl) 

CO(TM)=CR(IWTCH) 

ID0(IM)=IPR<1H1CH»J) 

IF(H0D(1Yf4) .FO.O) GO TO 82 

IF<1S.ER.2.0R.IS.EQ.14,AHII,UI.(>E,29) GO TO 1!)1 
IF(ID.GT.NOAYS<IS) ) GO TO 151 
GO TO 180 
A0< IM)=999999. 

B0(1M)=999999. 

C0<IM)=999999. 

IP0(IM>*999 
GO TO 180 
CONTINUE 

CHECK PTFt.P FOR OLIPUT ANP BLANK OUT DAYS WHERE NO PATA 
IS AVAIL. ABLE 

IFCPTFl.G.EB.O) GO TO 161 
AO(IM)-=nTl.R(TUICH»J) 

B0< IM)=TCRIT( IWICH) 

TF(MOD< IY»4) .EQ.O) GO TO 162 

IFLIS. EG. 2. OR. IS. EH. 14, ANP. HUGE. 29) GO TO 163 
IF< ID. GT .NDAYS( IS) ) GO TO 163 
GO TO 180 
A0< IM)==999999. 

B0( IM)=-999999, 

GO TO 180 
CONTINUE 

CHECK lOFLG FOR OUTPUT DATA AND PI..ANK OUT DAYS WHERE NO DATA 
IS AVAILABLE 

IF(IOFLG.EQ.O) GO TO 170 
A0( IM)^r< IMTCHr J) 

B0< IM)=PRECIF (IWICH tJ2) 

Cn< IM) =S( TWTCH. .J) 

IF(MOD< IV,4) .EQ.O) GO TO 83 

IF(IS.EU.2,0R.IS.E0,14.AND,in.GE.29) GO TO 171 
IF< ID.GT .NDAYS( IS) ) GO TO 171 
GO TO 180 
A0< IM)-999999. 

B0< TM)=999999. 

C0( IM)=999999. 

BO TO 180 
CONTINUE 

CHECK ROFI. G FOR OUTPUT DATA AND BI.ANK OUT PAYS WHERF PA IA IS 
NOT AVATLAPI E 

IF(ROFLG.FH.O) GO TO IP? 

AD( IM>-0NP1X( TUICH) 

B0( IM)-ACTUAI, < IWlCH) 

TF(MOD< TY,4) ,F0,0) GO CO 84 

IF(IS.FQ.?.0R,IS.FQ.)4,AND.1P.GH.2V) GO TO 181 
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15900 

15910 

84 

15920 

15930 

15940 

181 

15950 

C 

159A0 

c 

15970 

c 

15980 

c 

15990 

lAOOO 

16010 

1A020 

16030 

182 

16040 

16050 

85 

16060 

16070 

183 

16080 

180 

16090 

16100 

16110 

16120 

C 

16130 

16140 

71 

16150 

70 

161A0 

C 

16170 

16180 

72 

16190 

15 

16200 

16210 

16220 

C 

16230 

C 

16240 

C 

16250 

16260 

16270 

16280 

16290 

16300 

C 

16310 

199 

16320 

C 

16330 

C 

16340 

c 

16350 

16360 

16370 

16380 

16390 

16400 

c 

16410 

16420 

c 

16430 

210 

16440 

C 

16450 

C 

16460 
164 70 
16480 
16490 
16500 

C 

16510 

22J 

16520 

C 

16530 

C 

16540 

16550 

16560 

16570 

16580 

16590 

16600 

C 

16610 

220 

16620 

C 

16630 

C 

16640 

16650 

16660 

16670 

16680 

c 

16690 

16700 

16710 

16720 

40 

16730 

230 

16740 

C 

16750 

C 

16 760 
1 6770 
1 A7B0 
1A790 

c 


(Fdn.GT.NDAYSdS)) GO TO 181 

GO TO 180 

A0( IH)=V999?99. 

»0( IH)-9999999. 

GO TO 180 

CHECK TOFLG FOfi OtJI PUT DATA AHM BLANK OUT DAYS HHkRE 
NO DATA 15 AVAILABLE 

IFITOFLG.EQ.O) GO TO 180 
AO( IH)=rHAX( TUTCH) 

B0<1H)=TMINC IMICH) 

IF(MOD< TYf .EO.O) GO TO 85 

IF<lS,E0.?.0R.IS.EQ,14.ANn.II.i.Gh:.?9) GO TO 183 
IF< in.GT.NDAYSl IS) ) GO TO 183 
GO TO 180 
A0( IH)=999V99. 

P0< IH)=^999999. 

CONTINUE 

IF(MOn< IY»'^) .EQ.O) GO TO 70 
IF(1S.EQ,2.0R.IS.EQ.H) GO TO 71 
GO TO 70 
NDY-NDAYS( IS)-1 
GO TO 7? 

NDY-NDAYS( IS) 

IHICH=IUICH+NDY 
IS=--1S + 1 
CONTINUE 

IF< IDATZ.EQ.O) KE NIJ-NHONTH 
IFClDATZ.EO.l) KEND-6 

CHECK POFLG AND OUTPUT DATA 

IFIPOFLG.EQ.O) GO TO 199 

IFdFLAG.EQ.O) WRITE < 6 » 9009 ) 1 D » < AO < K ) p BO < K ) » K- 1 1 KEND ) 
IFdFLAG.EO.l) WRITE <Ar9009) ID p ( AO < K1 ) » BO ( K1 ) f 
K1=7pNM0N TH) 

GO TO 10 
CONTINUE 


CHECK COFLG AND OUTPUT DATA 

IFCCOFLG.EQpO) go to 210 

XF( IFLAG.EOpO) WRITE(6p5500) 1 D p t AO ( K ) p BO < K ) p CO < K ) p I DO < K ) p 
K=1 pKEND) 

IF < IFL AG pEQ t I ) UR1TE16P5500) IDp < AO < K1 ) p BO < K 1 ) p CO < K 1 ) p 
ID0(Kl)pKl-7pNH0NrH) 

GO TO 10 
CONTINUE 

CHECK DTFl.G AND OUTPUT DATA 
IF<DTFLG.EO.O> GO TO 221 

IF ( IKLAG.EQ.O) WRI IE< ApliOll ) I D p ( AO ( K ) p BO < K ) pK-1 pKENC) 

IF ( I FLAG .EG. 1 ) WRI TF ( 6 p 501 1 ) 1 D p < AO ( K1 ) p BO < K 1 ) p Kl-7 p NHONTH > 

00 TO 10 

CONTINUE 

CHECK lOFLG AND OUTPUT DATA 

IF< lOFLG.EQ.O) GO TO 220 

IF( IFIAO.FO.O) WRITE(ApAOOO) 1 D p < AO < K ) p FO < K ) p CO < K > p 
K-1 pKEND) 

IFdFLAG.FR.l > WRlTFCApAflOO) IB p < AO < K 1 ) p BO ( K1 ) p CO < K 1 ) p 
K1^7pNM0NTH) 

GO TO 10 
CONTINUE 

CHECK ROFI. G AND OUTPUT DATA 

IF(ROFL.GpEQ.O) go to 230 
IFUFLAG.EQ.l) GO TO 40 

IFIUFIAG.EG.I ) UKITE(Ap7000> IB p ( AO ( K > p BO ( K ) p K~1 p KEND ) 
IF(UFLAO.EIJ.O) WRITE<Af 7001 ) I D p < AO ( K ) p BO < K > p K- 1 p KEND ) 
IFIIFLAG.EO.O) GO TO 10 

IKIUFLAG.EQ. 1 > WRITE ( A p 7000 ) ID p ( AO ( K 1 ) p BO ( K1 ) p Kl-7 p NHONTH ) 
IFUJFl.AG.EO.O) URITE(Ap 7001 ) I B p ( AO < K1 ) p BO < K1 ) p K1 -7 p NHONl H ) 
GO ro 10 
CONTINUE 

CHECK TOPl.R AND OUTPUT DATA 
IFCTOFI. G.EO.O) GO TO 232 

IF< IFl. AG.KO.O) WRITE(Ap9000> IB p ( AO ( K ) p BO < K ) p 
K=1 pKEND) 
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16800 

16810 

168?0 

16830 

16840 

168f>0 

16860 

16870 

16880 

16890 

16900 

16910 


23? 

10 


IF< IFI. AB.ffj, 1 ) WRITF(6t9000) I)l» < A(XK1 ) »»(><K1 ) » 

K1^7»NHt)NrH> 

CONTINUE 

CONTINUE 

CHECK ALL FLAGS AGAIN ANT) OUTPUT DATA FOR OVER 6 MONTHS 


GO TO 51 
IFL,AG = IFl.AG + l 
GO TO 51 


BASIN. I VEAR»ARENAM<.J) » < MO < M2 ) . H?-l ENM? » IK NMTH) 
< n ( IN) f PI ( IN) rSN< IN) .IN-7.NH0NTH) 


BASIN. 1 YEAR. ( MO ( M2 ) » H2= 1ENH7 . 1 KHMTH ) 
(CMP( IN) . ACT< IN) . IN-7.NM0NTH) 


1767-0 

17680 


IF< IFL Afi.EQ. 1 ) 

IFUDATr.EQ.l) 

IF(IUAT7.EO.O) 

IENM2=IFNn+l 

IF(POFLG.EQ.O) GO TO 399 
WRITE<6.1201) 

yRITE<6» 1000) BASIN. lYEAR.ARENAM(J) f <M0<M2) .M2=-IEHH2. lENMTH) 
URITEC6. 1009) T OP ( I N ) . P? < I N ) . IN^7.NM0N TH) 

GO TO 5 
CONTINUE 

IFICOFLG.EQ.O) GO TO 400 
WRITE(6. 1001 ) 

WRITE (6. 1000) BASIN. I YEAR. AREN AH<.)> . <H0 (M2) .H2-IENM?. lENMTH) 
WRITE <6. 1010) ( AA( IN) .i;i ( IN) .CRt < IN) . PRE < IN ) . IN-^7 . NMONTH > 

GO TO 5 
CONTINUE 

IFIDTFLG.ECI.O) GO TO 401 
WRITE<6.2001 ) 

WRITE (6. 1000) BASIN. I YEAR . ARENAM < J ) . < MO ( M2 ) »H2- 1ENH2 . lENNTH ) 
WRITE<6.1011) (nrilN). rC(IN),IN^7.NM0NIH> 

GO TO 5 
CONTINUE 

IF< lOFLG.KR.O) GO TO 410 
WRITE<6.1501) 

WRITEI6. 1000) 

WRITE(6.1510) 

GO TO 5 
CONTINUE 

IFIROFLG.KQ.O) GO TO 421 
WRTTE<6.2002) 

WRITEI6.3000) 

WRITE(6.3010) 

GO TO 5 
CONTINUE 

IF(TOFLG.ER.O) GO TO 51 
WRITEI6.3001 ) 

WRITE (6. 3000) BASIN. I YEAR. < KO ( M? ) . M2=1ENM2 . lENMTH > 

WRITE <6. 3020) < TX (I N ) , TN < IN ) . IN=7 . NMONTH ) 

GO TO 5 

lEICOFlG.EQ.l ) 60 TO 50 
IFIROFLG.EO.l ) GO TO 999 
IFITOFLG.EQ.l ) 60 TO 999 
CONTINUE 
RETURN 

FORMAT STATF.MENTS; 

FORMAT! 'C' .///////) 

F0RMAT(//5X» 'RANGO-MARTINEC MODEL FOR ' . 2A8 . 2X . ' YEAR= ' . 15// 
lOXf'DATA FOR ZONE'.AS// 

IX.'DAY ' .6X.6(A4.l6X)/> 

F0RMAT<6X.6< A4.7X.A4. IX. A4.2X.A4)/) 

FORMAT! 5X.6<2X.A4.4X.A4.6X)/) 

F0RMAT!6!4X» A4. IX. A4.3X. A4)/) 

F0RMAT!//5X» 'RANGO-MARTINEC MODEL FOR ' . 2AB . 2X . ' YEAR= ' » 15// 
IX.'DAY ' .6X.6!A4. 16X)/) 

F0RMAT!2Xf6! IX . A8 . 3X . A8)/) 

F0RMAT!3X.6! IX. A8.1X.AB.2X)/) 

F0RMAT!lX.I2.2X.6!6XfFl0,3) ) 

FORMAT! IX. I?.2X.6!F6,2.4X.F4r2.6X)) 

FORMAT ! IX. I2.3X .6!F4,2>2X.F4,2. 1X.F4 ,2»3X,I1 ,2X) ) 

F0RMAT!1X, I2.1X.6!F6.?.1X.F5,2. 1X.F5.3.2X) ) 

FORMAT! IX. 12. 1X.6!F6.0.4X.F6.0.4X)) 

FORMAT!! X. I2.1X.6!F7.3.2X.F7,3.4X) ) 

FORMAT! 1X»I2.2X.6!F6,2.3X.F6,2.5X)) 

FORMAT !5X. 6 !2X.A4.4X.A4.6X)/) 

FORMAT! IX. I 2 » 2X . 6 ! IX » F5 . 3 . 3X . F5 . 3 . 6X ) ) 

FORMAT! /5X. 'DAIt Y SNOW DEPTH BY ZONE IN CM , M»*2 ! DPTH ) . 

DAILY COMPUTFD PRECIP CONTRIBUTING TO RUNOFF ! CPRE )'/ ) 

F0RMATI/5X. 'DEGREE-DAY FACTORS ! AN ). RUNOFF COEFFICIkNTS FOR 
SNOW!CS). FOR RAIN!CR). PRECIP METHOD ! PR )'/ ) 

F0RMATI/5X. 'DAIl Y TEMP IN DEGREE-MAYS ! DD ), INPUT PRECIP! PREC ) , 

SNOW COVERED AREA IN Z!SCA)'/) 

FORMAT !/5X. 'I APSE RATE!D1LR). CRITICAL T E HPERAT URE ! TCRT ) ' / ) 
FORMAT!/r>X, 'DAILY COMPUTED AND ACTUAL SNOWMEL T RUNOEF DATA'/) 
E0RMAT!/5X. 'DAILY MAXIMUM AND MINIMUM TEMPERATURES'/) 

END 

SUPROIITINE FL.0TR!QNF1X»ACTUAI. »X1 . ND . UFL. A6 . ACTFL 6 ) 

C 

C FUNCTION - PLOTR CALLS THE FORTRAN PRPLOT PRl NTER-PUJT 


16920 

16930 

16940 

16950 

16960 

399 

16970 

16980 

16990 

17000 

17010 

17020 

400 

17030 

17040 

17050 

17060 

17070 

17080 

401 

17090 
17100 
17110 
17120 
171 30 
17140 

410 

17150 
17160 
171 70 
17180 
17190 
17200 

421 

17210 

17220 

17230 

17240 

17250 

17260 

C 

17270 

51 

17280 

17290 

17300 

50 

17310 

999 

17320 

C 

17330 

C 

17340 

C 

17350 

9999 

17 360 

1000 

17370 

1 

17380 

2 

17390 

1010 

17400 

1011 

17410 

1510 

17420 

3000 

17430 

1 

17440 

3010 

17450 

3020 

17460 

5000 

17470 

501 1 

17480 

5500 

17490 

6000 

17500 

7000 

17510 

7001 

17520 

9000 

17530 

1009 

17540 

9009 

17550 

1201 

17560 

1 

17570 

1001 

17580 

1 

17590 

1501 

17600 

1 

17610 

200] 

17620 

2002 

17630 

300] 

17640 
17650 
17660 ( 
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17700 C 
17710 C 
177V0 C 
17730 C 
17740 C 


PACKAKIi TO Pl.OT ACTUAL AND STHULATPP STBKAM 
RUNOFF AS A FUNCTION OF 8TKFAH DISCHARCF VS, 
NUNBFR OF SNOHHF.l.T DAYS. 


17750 

C 

ARGUMENT 

LIST - 



17760 

C 

VARIABLE 

TYPE 

10 

DESCRIPTION 

17770 

C 


— 

— 


17780 

C 

ITNPIX 

R*4 

10 

ARRAY OF SIMULATED STREAM RUNOFF DATA 

17790 

C 

ACTUAL 

R*4 

in 

ARRAY OF ACTUAL STREAM RUNOFF 

17800 

c 

XI 

R*4 

10 

ARRAY OF SNOWMFI.T DAYS 

17810 

c 

ND 

1*4 

I 

NUMBER OF SNOWMELT DAYS 

17820 

c 

UFLAG 

I*-2 

I 

UNITS flag: 0=MFTRIC UNITS, 1=ENGLISH I 

17830 

c 

ACTFLG 

1*2 

I 

ACTUAL DATA FLAG: 0=NO ACTUAL DATA 

17840 

c 




AVAILABLE, 1-ACTUAL DATA AVAILABLE 

17850 

c 





1 7860 

c 





17870 

c 





17880 

c 

EXTERNAL 

REFERENCES 

— 


17B90 C 
17700 C 
17910 C 
17920 C 
17930 C 
17940 C 
17950 C 
179A0 C 
17970 C 
17980 C 
17990 C 
18000 C 
1-8010 C 
18020 C 
18030 C 
18040 C 
18050 
180A0 
18070 
18080 
18090 
18100 
18110 
18170 
18130 
18140 
18150 
leiAO 
18170 
18180 
18190 
18200 
18210 
18270 
18230 
18240 C 
1B2S0 
1 B 2<^0 
18270 C 
18280 
18290 
18300 
18310 
18370 
18330 
18340 
18350 
18340 
18370 
18380 
18390 C 
18400 r. 
18410 C 
18470 
18430 
18440 
18450 
J18440 
18470 
184H0 C 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
185/0 
18580 
18590 C 


PLOTl - PRPLOl ROUTINF TO DETFRMINF Pl.OT SCALE FACTORS AND 
niMENSIONS OF LENGTH AND WIDTH OF PLOT IMAGE, 

PLOT? - PRPLOT ROUTINF. CONSTRUCTS GRIDl IHAOE IN CORE. 

P1.0T3 - PRPLOr ROUTINE PUTS SPECIFIED CHARACTER IN POSITION 
CORRESPONDING TO VAI.UE<S> OF X AND Y. 

PLUT4 - PRPLOT ROUTINE WRITES IHAHE OF COMPLETED GRAPH ON 
UNIT FT06F001. PRINTS LABEL FOR ORDINATE ON LEFT 
EDGE OF PLOT, 

CALl.ED BY — MAIN 

COMPUTER/l ANGUAGE — IBH 360/91 A1 GSFC/FORTRAH IV 
DESIGNER/PROGRAMNER -- 6. MAJOR , KE SEARCH t DATA SYSTEMS, INC. 

C*t******tt******1i****t*******1.*t***K**1^*************1l.*******f$********* 

C 

DIMENSION GRIDK3500) 

DIMENSION 0ASH<3) 


DATA CHAR/' '/ 
DATA DASH/3*0.1/ 


DIMENSION 0NP1X<367) ,X1 (367) ,ACUIAL(366) , Af;TPLT<366) 


C 

C 

CIOOO 

C 

C 

C 

C 


INTEGER*? UFLAG,ACTFLG 


WRITE<6,1000) 

FORMAT!' SUBROUTINE PLOT ENTERED') 


SCAl E ACTUAL AND PREDICTED STREAM FLOW IF IN ENG, UNITS 


DO 5 1^1, ND 

ONPIX ( I)«QNPIX( 1 )/lOO. 

ACTPLT(I>»ACTUAI.<n 

CONTINUE 

IFUIFL AG.EQ.l ) GO TO 120 
GO TO 130 
no 7 1 = 1, NP 

0NP1X(I)-QNP1X(I)/100. 

ACTPl.K I )==^ACTUAL( I )/100. 

CONTINUE 
GO TO 131 
CONTINUE 
DO 6 T2-1 ,ND 

ACTPLT(I2)^ACTUAL< 12) 

CONTINUE 

SET UP PLOT FOR NUMBER OF PAYS .IF, 100 

TF<ND.L.F,100) GO TO 10 

GO TO 20 

CONTINUE 

WR1TE(6,8) 

CALL PL QTlCO.lOil.O, 10, 10) . 

CALL PI 0T2<GRXD1, too. ,0.,50.,0.) 

NDl =ND-1 

CALI. PL0T3( '*' ,X1( 1 ) ,0NP1X< 1 ) ,ND) 

IF( ACfFl.G.EQ.O) GO TO 11 
CALI PI 0T3( ' . ' ,X1 , ACTPl.T,Nn) 

.(F< UFLAG ,EQ .0) CALL P1.0T4 ( 1 8 , ' CUP 1 C MFTFRS/SEC') 

If (UFLAG.Fft.l ) CALL PI. 0 T4 < 2ft , ' CUP J C FFET/SEC SCALED BY 100') 
WRTTE(6,9) 

F0RMAT(//30X, '*=C0HP1ITFD .^ACTUAL ' ) 

URITF(6,8) 

FORMAT! 'C' ,///////) 

CON I !NME 
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18*00 C 
18610 C 
186J0 
18630 

18640 30 

18650 
18660 
18670 
18680 
18690 
18700 

18710 35 

18720 
18730 
18740 
18750 C 
18760 C 
18770 C 
18780 
18790 
18800 
18810 
18820 
18830 C 
18840 

18850 45 

18860 
18870 
18880 

18890 40 

18900 C 
18910 C 
18920 C 
18930 
18940 

18950 50 

10960 

18970 

18980 

18990 

19000 

19010 

19020 55 

19030 

19040 

19050 

19060 C 

19070 C 

19080 C 

19090 

19100 

191 10 

19120 

19130 

19140 65 

19150 

19160 

191 70 

19180 C 

19190 C 

19300 C 

19210 

19220 

19230 

19240 

19250 

19260 C 

19270 

192B0 75 

19290 

19300 

19310 

19330 60 

19330 C 
19340 C 
19350 C 
19360 
19370 

19300 70 

19390 

19400 

19410 

19420 

19430 

19440 

19450 H5 
19460 
19470 
19400 
19490 C 


SET UP PLOTS FOR NUhBFR OF DAYS ,LF. 200 

IF(Nn.GT,100,ANP.ND.LF.200) GO TO 30 

GO TO 40 

CONTINUE 

WRTTE(6.8) 

CALL Pl.OTl<0»10»30»10*10) 

CALL PL0T2(RR1D1 f 100. »0. «50 . fO. J 
CALL PL0T3< '♦'FXl(l>fONPlX<l)FlOO) 

IF< ACTFl.G.EO.O) GO TO 35 
CALI. Fl.0T3( ' . ' fXl fACTPI.Tf 1 00) 

IF(UFLAG.EQ.O) CALL Pl.O F4 < IB f ' CUBIC HETF.RS/SEC ' ) 

IFdIFL.AG.EQ. 1 ) CALL PL0T4 < 20 f ' CUBIC FEFT/SEC SCALEH BY 100') 
UKITE(6f9) 

WRITE(6f8) 

PLOT BAYS BETWEEN 100 AND 200 

CALI PLOTKOfIOfIOfIOfIO) 

CALL PL0T2(GRIB1 f?00. f 1 00 . f 50 . f 0 . > 

NB1=(ND-100)+1 

CALL PLOTS < fXK 100) f QNP l X ( 100 ) f NU l ) 

1F( ACTFl.G.EO.O) GO TO 45 
NP2=<NB-100)+1 

CALL PL0T3( ' . ' fXK 100) fACTPLT< 100) fNDI ) 

IFUIFLAG.EQ.O) CALL PL 0T4 < 10 t ' CUB l C KETER8/SEC') 

TKIUFIAG.EQ. 1 ) CALL PI 0 T 4 < 28 f ' CUB I C FEFT/StX SCAl.ED BY 100') 
WRITE(6 f9) 

WRITF(6f8) 

CONTINUE 

SET UP PLOTS FOR NUMBER OF DAYS ,LF, 300 

IF<ND.6T.200.ANIi.ND.LE.300) GO TO 50 

GO TO 60 

CONTINUE 

URITE(6f8) 

CALL PLOTKOf 10. JOfIOtIO) 

CALL Pl.OT2<GRiniFtOO. fO. fSO.fO.) 

CALL FI 0T3< ' *' fXK 1 ) fQNFI X< 1 ) f 100) 

IF(ACTFLG.EQ.O) GO TU 55 
CAL.L. Pt 0T3( ' . ' fXI F ACTPLTf 100) 

XF<UFLAG.E0,0) CAl.L PL0T4 ( 1 8 f ' CUB I C METERS/SEC') 

IFUJFLAG.EO.l) CALL PL0T4 < 28 f ' CUBIC FEET/SEC SCALED BY 100') 
WR1TE<6f9) 

WRITE(6f8) 

PLOT BETWEEN DAYS 100 AND 200 

CALL PLOTKOfIOfIOfIOfIO) 

CALL PL0T2<GR1D1 f200. f 100 . f 50 . f 0 , ) 

CALI. Pt.0T3( fXK 100) fONPIXU 00) f 101 ) 

IF< ACTFLG.EO.O) GO TO 65 

CALL PL0T3< ' . ' fXI < 100) f ACTPLT < 100) f 101 ) 

IF<UFLAG.EQ.O) CALI. PL0T4 < 18 f ' CUBIC HETERS/SEC') 

IFdIFLAG.EO.l ) CALL PL DT4 ( 20 f ' CUBIC FEE TS/SEC SCALE)) BY 100.') 
MRITE(6f9> 

WRITF<6f8) 

PLOT DAYS BETWEEN 200 AND 300 

CALL PLOTKOfIOfIOfIOfIO) 

CALL Pl.O f2<l>RIDl f300. f200. f50. fO. > 

NDl =-<ND-200) + l 

CALL. Pl.0T3( '*' fXK200) fQNP1X<200) fNDI ) 

IF(ACTFt.G.FO.O) GO TO 75 
ND2^ (ND-30i)) + l 

CALI. PI 0T3< ' . ' f Xl (200) f ACTPLT < 200 ) f HOI ) 

.(KUJFLAR.EO.O) CALL Pl.0T4( 18 f 'CUBIC METERS/SEC') 

IFUIFl AG.EO, 1 > CALL F1.0T4 ( 20 f ' CUB.IC EEET/SEC SCALED BY 100.') 
WRITE(6f9) 

URITE<6f8) 

CONT INUE 

SET UP PI OTS FOR NUMBER 01- DAYS BETWEEN 300 ANO 365 

IE<ND.GT.300,AND,ND.I E .366) GO TO 70 

GO TO 80 

CONTINUE 

URITE(6f8) 

CALI PI OTK Of IOf 1 Of 1 0. 1 0 ) 

CALL. PI.0T2(I5RID1 F too . fO. f50. fO , ) 

CALL PL0T3< '*' fX.K2) fONP1X<2> f99) 

IF < AC fFl.ij .EO.O) GO TO 85 
CALL PL 0T3< ' , ' rXl r ACTPI. Tf 100) 

.(FaiFl.AG.EO.O) CALL PLOT 4 ( 1 8 f ' CUB I C METERS/SEC') 

IF (UFl AG .FQ . 1 ) CALI PI. m 4 ( 20 . ' CUB .1 (; EEET/SE.C SCALFO BY 100.') 
URITK<6 f9) 

WRITF(6f8) 
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19500 C 

19510 C 

195;?0 

19530 

19540 

19550 

195A0 

19570 95 

195B0 

19590 

19600 

19610 C 

19670 C 

19630 C 

19640 

19650 

19660 

19670 

19680 

19690 105 

19700 

19710 

19770 

19730 C 

19740 C 

19750 C 

19760 

19770 

19780 

l‘9790 

19800 

19810 C 

19820 

19830 115 

19840 
19850 
19860 

19870 80 

19880 

19890 


PLOT PfiTUEFN 100 ANU 200 DAYS 

CALI. PL OTl <0» 10» lOr IOt 10 > 

CALL PI.UT2(RR1D1 i300. » 1 00 ► j 50 . » 0 . ) 

CALI. PI 0T3< fXniOO) »0HP1X< 100) » 101 ) 

XF( ACTFl.G.KD.O) GO TO 95 

CAL 1. PL0T3( ' . ' 1 XI ( 100) I ACTPLT < 100 ) r 101 ) 

XFdJFLAG.KQ.O) CALL Fl.nT4 ( IH* ' CIJ8TC HETFR8/SEC') 

IF<UFL AG.FQ.l ) CALL PLOT 4 ( 28 » ' CUD 1 C FEfcT/SK.C SCAl.tJj DV 100.') 
MRI fE<6.9) 

URITE(6t8) 

PLOT PFTWEEU 200 AND 300 DAYS 

CALI. FI.0T1(0i10»10»10f1O) 

CALL PLOr2<RRlDlF300.f200 . f50. fO. ) 

CALI. PI 0T3( F XI (200) fQNP1X(200 ) f 101 > 

1F<ACTFLG.EI3.0) GO TO 105 

CALL PL0T3( ' . ' F XI (200) F ACTPLT (200) F 101 ) 

1F<UFLA6.E0.0) CALL PL0T4 < IB f ' CUBIC HETERS/SEC ' ) 
IF(UFL.AG.EO,I) CALI. PI.0T4 ( 28 f ' CUDI C FEET/SEC SCALED BY 100') 
WRTTE(6f9) 

WRITE(6f8) 

PLOT BETMEEH 300 AND 365 DAYS 

CALL PLOTKOfIOfIOfIOfIO) 

CALL Pl.0T2(GRXDl f400, f300, f50. fO. > 

NDl-<Nn-300)+l 

CALL Pl.0T3( fXI (YOO) fQNP1X<300) fNOI > 

IF(ACTFLG.EQ.O) GO TO 115 
ND2-(ND-300)+1 

CALI. PLOTS < ' , ' F XI (300) F ACTPLT (300) fHDI ) 

IF(UELAG.EO.O) CALL PLO T4 ( 1 8 f ' CUB 1 C HETERS/SEC') 

IFCUFLAG.EQ.l > CALL. PI. 01 4 ( 28 f ' CUBIC FEF.T/SEC SCALED BY 100') 
WRITE< 6f9) 

WRITF(6f9> 

CONTINUE 

RETURN- 

END 
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00010 

00020 C 

00030 

00040 

OOOSO 

00060 

00070 

00000 

00070 

00100 c 
00110 
00120 
00130 
00140 
00130 
00160 C 
00170 
00180 
00190 
00200 123 
00210 
00220 
00230 
00240 
00230 
00260 
00270 14 
00280 
00270 
00300 128 
00310 
00320 
00330 
00340 12 
00330 
00360 126 
00370 
00380 
00370 
00400 
00410 
00420 
00430 
00440 
004S0 
00460' 
00470 11 
00480 
00470 130 
OOSOO 
00310 
00320 
0OS3O 
00340 
00330 
00360 70 
00370 
00380 
00390 
00373 
00600 
00610 
00620 


SUBROUTIHE PRPLOT 

PETE ShlSlMGER 8UHHER 1766 HATH I COMP 8R OSFC HABA 
IMPLICIT LOGlCALBKUlf LOGICALBIIKI 
DIHEHGION NBCALE(3>iA8N0S<26>fX<l)>Y(t) 

L0GICAL61 M08(10>/'0'»'l'i'2'.'3'*'4'.'3'i'6'»'7'»'8'»'7'/ 
LOGICAL*! IHAOE(l>iCHiLABEL<l> 

LOGICAL*! VC rHC/ ' - V»HC/' 7 '/i 8L/‘ */ 

L t HF/'F'/fHFl/'.'/»HF2/'»'/ 

DATA VC/ 'I'/ 

DATA VC/Z4F/ 

LOGICAL*! F0R1(I9>/' (IXAliFS. •1X121A1)*/ 

L >F0R2(1S)/M1XA1> 7X121A1>V 

L ■F0R3(19>/' (IKOF . > F . >*/ 

DATA KPLOTl /. FALSE. /> KPL0T2/. FALSE./ 

DATA KABBCfKORDvXIOTOL /3*. FALSE./ 

ENTRY PLOTl(HBCALE>NHL>NSBH>NVLtNSBV> 

KPLOTl-.TRUE. 

KPL0T2a. FALSE. 

HH«IA1S<NHL> 

NSH«IABS(NS8H) 

NV=1ABS<NVL> 

NSV«IAB8<HSBV) 

NSCL«N8CALE(1> 

IF<NH*NBK«NV*N8V.NE.0> 00 TO 128 
URITE (6il4) 

FDRHAT(T3>'G0nE PLOT! ARG. ILLEGALLY O') 

KPLOT>. FALSE. 

RETURN 

KPLOT-.TRUE. 

IF(NV.LE.2S> GO TO 126 
URITE <6.12) 

KPLOT>. FALSE. 

FORMAT (T3> 'HO. OF VERTICAL LINES >23') 

RETURN 

CONTINUE 

NVH«NV-1 

NVP'NVfl 

NDH-NH4NSH 

NDHP'HDHtl 

NDV«NV*NSV 

HDVP-NDV71 

NIHO-<HDHP*NDVP) 

IF<NDV.LE.120) 00 TO 130 
KPLOT>. FALSE. 

URITE <6>ll) 

FORMATITS.'UIOTH of graph >121') 

RETURN 

CONTINUE 

IMNSCL.EQ.O) GO TO 70 
FSY>10.**NSCALE(2) 

FSX«10.**N8CALE(4) 

IY>HINO(IABS(NSCALE<3))>7)M 
IX>MIN0<IABS<NSCALE«3>)>7m 
GO TO 73 
FSY>1. 

FSX>1 . 

IY>4 

IX>4 

IF (.NOT. MPL0T2) GO TO 73 

XI*HAX1<ABS(XHAX>iA*S(YMAX) tABSIXMIH) rAB8(YHIH)> 

IP«XI 

IFdP .OT. 79997) IY>1 
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00630 
00440 
00430 73 
00440 
00470 
00480 
00490 
00700 
00710 
00720 
00730 
00740 
007S0 
00740 80 
00770 
00780 90 
00790 
00800 
00810 
00820 
00830 
00840 
00830 
00840 
00670 
00880 
00890 
00900 
00910 
00920 100 
00930 
00940 C 
00930 
00940 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 210 
01030 
01040 
01070 
01080 
01090 
01100 220 
OHIO 
01120 225 
01130 
01140 
01130 
01 140 
01170 
01180 
01190 228 
01200 230 
01210 
01220 
01230 
01240 


Ifdf .OT. 9999) IY-2 
IFdP .OT. 999) IV3 
FORldOl-MOSdT) 

N0>HIN0dX#H3V)-l 
NS'HA'nINOlHOi 120-NDV) 

N>>11-HS)NA 

I1«N>/10 

I2«M8-I1*10 

FbR3<4)-N08dl41> 

F0R3<7)-N0S(1241> 

F0R3<9>-N0S<N0d> 

IF(NU.OT.O) 00 TO 90 

DO 80 J'lltia 

F0R3( J)OL 

00 TO 100 

II-NV/10 

I2*NV-tl»10 

F0R3dl>>N0Sdm> 

F0R3(12>«N08d241> 

FaR3(13>-HF 

Il*N6V/iee 

I3*NSV-I1«100 

I2>13/10 

I3>I3-I2*10 

F0R3(14l«N08dm> 

F0R3dS>-M0ad241 1 
FaR3(14)>N0S< I3it> 

FaR3(17>-HFt 
F0R3C18)*F0R3(9) 
tF(KPLOTl) RETURN 
KPLOTla.TRUE. 

ENTRY PL0T2 ( INAOE > XNRX . XHIN r YNAX r YHIN > 
KPL0T2-,TRUE. 

IFCKPLOTl) 00 TO 210 

NSCL«0 

NH*S 

MSH-10 

HU*10 

NSU«IO 

00 TO 128 

CONTINUE 

IFC .NOT.KPLOTIRETURN 
YNX-YHOX 

DH>(THAX-YnIN>/FLOM <NDH) 
DVIXHAX-XNIN)/FL0RT(NDV) 

DO 220 I'liNVP 

ABNDSd)-(XNINiFLOAT( It-t > »NSU > SDV 1 f FSX 

DO 225 I'l.NlHQ 

INAGE< I >-0L 

DO 240 1‘l.NDHP 

I2<I»NDVP 

ll=I2-NDV 

XHHOR-HOD< I-l .HSHl .NE.O 
tF(KNHOR) GO TO 230 
DO 228 J>Ilil2 
1HAGE< J>*HC 
CONTINUE 

DO 240 J-lltI2>HSU 
IF<KHHOR) GO TO 233 
INAGEI J)-NC 
GO TO 240 
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012S0 <:5S 
012«0 240 
01270 
01280 
01290 
01300 C 
01310 
01320 300 
01330 301 
01340 13 
013S0 312 
01330 
01370 
01380 
01390 
01400 IS 
01410 
01420 314 
01430 
01440 
014S0 
01430 
01470 
01480 
01490 315 
OISOO 
01510 320 
01520 
01530 C 
01540 
OISSO 
01530 
01570 

oisao 

01590 

01300 

01310 

01320 

01330 

01340 

01350 

01330 

01370 410 

013B0 

01390 

01700 420 

01710 

01720 

01730 430 

01740 C 

01750 

01730 

01770 

01780 

01790 

OIBOO C 

OlOlO 

01820 C 

01830 . 

01840 

END OF DATA 


IHAGEl J)>UC 
CONIINUE 

XniNl>XHIH-DV/2. 

YilINl*YHIN-DH72. 

RETURN 

ENTRY PL0T3(CHiXi ViN3> 
tF<KFL0T2l 00 TO 312 
WRITE (3il3> 

FORNATtTSf 'PL0T2 HURT IE CALI.EO') 

CONTINUE 

IF< .NOT.KPLOTl RETURN 
IF(H3.-CT.0> 00 TO 314 
KFLOT>. FALSE. 

WRITE <3itS) 

FORHATITSf 'PLOTS. AR02 < O') 

RETURN 

DO 320 I-tfN3 

DUNl«(X(I>-XfllNl>/DV 

DUn2>(Y(I)'YHINl)/DH 

tF<DUHl.LT.O..OR.DUH2.LT.O.> GO TO 320 
IF(DUH1.0E.ND0P.0R,DUH2.GE.NDHP) 00 TO 320 
NX-14INT(DUN1 > 

NY*1MNTIDUN2> 

J- ( NOHP-HY > YNOWP+NX 
IilAGEI J)«CH 
CONTINUE 
RETURN 

ENTRY PL0T4<NLf LABEL) 

ENTRY FPL0T4<NL. LABEL) 
tF(.NOT.KPLOT) RETURN 
1FI.NOT.KPLOT2) GO TO 301 
DO 420 I>1.NDHP 

IF(I.Ea.NOHP.AHD.KBOTOL) 00 TO 420 
UL-BL 

IFCl.LE.HL) UL'LABELII) 

I2*I*NDVP 

I1-I2-HDV 

IFINOOl I-liNSH) .EO.O.AND. .NOT.KORD) 00 TO 410 
WRITE (3.F0R2) UL >( IMAGE ( J ). J*I 1 > 12 ) 

GO TO 420 
CONTINUE 

ORDNO*(YMX-FLQAT< I-l )*DH)»FSY 

WRITE l3rF0Rl> WL .ORDNO > ( IMAGE ( J ) . J-1 1 • 12 1 

CONTINUE 

IFIKABSC) GO TO 430 

WRITE (3.F0R3) «ABHOS< Jl I J-1 iNVP) 

RETURN 

ENTRY OHITILSW) 

KABSC>MOD(LSUr2).EO. 1 
K0RD>M0D(LSWt4) .GE.2 
KkQTCL-LSW.GE.4 
RETURN 

ENTRY PLTAPEI ITAPE) 

NOT YET 
RETURN 
END 


APPENDIX C 

DETAILS OF TEMPERATURE PREPROCESSING SUBROUTINE PRETMP 

Table C— 1 . Description of parameters in temperature preprocessing subroutine PRETMP. 

Figure C— 1 . Process-oriented flow chart for PRETMP. 

Figure C— 2. Flow diagram for subroutine PRETMP. 


Figure C— 3. Source listing for subroutine PRETMP. 


Table C~1 


Units 


Parameter 

Common 

Type 

Metric 

English 

Description 

TMAXl 

TEASE 

R*4 

°C 

°F 

Maximum temperature at station #1 

TMINl 

TEASE 

R*4 

°c 

°F 

Minimum temperature at station #1 

TMAX2 

TEASE 

R*4 

°c 

°F 

Maximum temperature at station #2 

TMIN2 

TEASE 

R*4 

°c 

°F 

Minimum temperature at station #2 

THOURl 

TEASE 

R*4 

°c 

°F 

Hourly temperatures from station #1 

THOUR2 

TEASE 

RM 

°c 

°F 

Hourly temperatures from station # 1 

T1 

TEASE 

R*4 


°F 

Temperatures in degrees/degree-days 
from station #1 

T2 

TEASE 

R*4 

°c 

°F 

Temperatures in degrees/degree-days 
from station #2 

DTLR 

EASDAT 

RM 

°C/100m 

°F/1000ft Average temperature lapse rate in 
degree-days 

ZMEAN 

TEASE 

R*8 

m 

ft 

Hypsometric mean elevation of 
each zone 

STATN 

TEASE 

R*8 

m 

ft 

Mean elevation of each base station 

NSTATN 

TEASE 

IM 

— 

— 

Number of base stations 

MAXMIN 

TEASE 

1*2 



Flag to indicate if temperatures are 
maximum-minimum. 

0 - Not MAX-MIN 

1 = MAX-MIN 

ND 

CLIDAT 

1*4 

Days 

Days 

Number of snowmelt days 

NZ 

EASDAT 

1*4 

— 

— 

Number of elevation zones 

UFLAG 

OPTDAT 

1*2 



Units option flag 

0 = Metric units 

1 = English Units 

MTHD 

OPTDAT 

1*2 



Degree-day temperature computation 
flag 

0 = Mean method 

1 = Effective minimum 

lEXT 

TEASE 

1*2 

— 

— 

Flag indicates how temperatures 
are to be extrapolated to eleva- 


tion zone 

0 = Extrapolate using predetermined 

constant 

1 = Automatically extrapolate using 

lapse rate 
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Table C—1 (cont.) 


Parameter 


IDEGDY 


ITZ 


IHOUR 


Common 

Type 

Units 

Metric English Description 

XBASE 

1*2 

— — Flag to indicate if temperatures 

are to be computed in degree-days. 

0 = Do not compute 

1 = Compute temps in degree-days 

XBASE 

1*2 

— — Flag to indicate if temperatures 

are from single zone or all zones 

0 = All zones 

1 = Single zone 

XBASE 

1*2 

— — Plag to indicate if temperatures are 

input hourly 

0 = No hourly temperatures 

1 = Hourly temperatures 
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INPUT 


PROCESS 


OUTPUT 


o 

ON 


• MAX-MIN TEMPERATURES 

• NUMBER OF DAYS 

• NUMBER OF ZONES 

• NUMBER OF STATIONS 

• ELEVATION OF STATIONS 

• ELEVATION OF ZONE 

• TEMPERATURE READING FLAGS 

• DEGREE-DAY METHOD 

• UNIT FLAG 




EXTRAPOLATE 
TEMPERATURES 
TO THE 

ELEVATION ZONES 


COMPUTE 

TEMPERATURE 

IN 

DEGREE-DAYS 




TEMPERATURE 

IN 

DEGREE-DAYS 


Figure C— L Process-oriented flow chart for PRETMP. 






C ENTER \ 
PRETMP J 



CHECK IF 
TEMPERATURES 
INPUT BY 
ZONE 



COMPUTE ZONE 
CONSTANTS 
FOR EXTRA- 
POLATION 




SUM TEMPS 
DIVIDED BY 
24 FOR AVERAGE 
TEMPERATURE 


COMPUTE 
TEMPERATURE 
IN DEGREE- 
DAYS 



Figure C— 2. Flow diagram for subroutine PRETMP. 
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vuulu 

00020 

00030 

000-<0 

OOOSO 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

OOlSO 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00330 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 


SU8K0U riNE F RETHP( STATNf ND»NZ» ITHAX » ITMIN f TEHPTfTHAXI f TMIMl f 
1 THAX2fTHIN2fDTLRfUFLAGfHTH0fZHEANfNSTATNfIEXTfIDEGDYfT) 

C 

C 

C FUNCTION - PRETMP IS A MODULAR TEMPERATURE PREPROCESSING ROUTINE 

C TAKES MAX-MIN DAILY TEMPERATURES IN DEGREES FROM 

C EACH STATION AND EXTRAPOLATES THE TEMPERATURE TO 

C THE ZONE AND COMPUTES THE TEMPERATURE IN DEGREE-DAYS> 

C DEGREE-DAYS CAN BE COMPUTED BY ONE OF TWO METHODS 

C AS MEAN OR EFFECTIVE MINIMUMf TEMPERATURES CAN BE 

C INPUT AS SINGLE STATION VALUES OR AS HOURLY 

C TEMPERATURES. 

C 

C 


c 

c 

ARGUMENT 

VARIABLE 

LIST 

TYPE 

10 

DESCRIPTION 

c 


- - — — 

— - 


c 

STATN 

R*8 


ELEVATION OF RECORDING STATION 

c 

NO 

I«4 


NUMBER OF SNOUMELT DAYS 

c 

NZ 

I«4 


NUMBER OF ZONES 

c 

ITMAX 

I«4 


DAY MAX TEMP IS RECORDED FOR EACH STATION 

c 

ITMIN 

I*A 


DAY MIN TEMP IS RECORDED FOR EACH STATION 

c 

TMAXl 

R«4 


MAX TEMPERATURE FOR STATION 1 

c 

TMINl 

R»4 


MIN TEMPERATURE FOR STATION 1 

c 

TMAX2 

R«4 


MAX TEMPERATURE FOR STATION 2 

c 

TMIN2 

R«4 


MIN TEMPERATURE FOR STATION 2 

c 

UFLAG 

I«2 


UNITS FLAOIENGLISH OR METRIC) 

c 

MTHD 

I»2 


METHOD OF COMPUTING DEGREE DAYS 

c 

c 

ZMEAN 

R«8 


(EFFECTIVE MINIMUM OR MEAN) 

HYPSOMETRIC MEAN ELEVATION OF EACH ZONE 

c 

NSTATN 

1*2 


NUMBER OF TEMPERATURE RECORDING STATIONS 

c 

lEXT 

1*2 


FLAG TO EXTRAPOLATE TO ELEVATION ZONES 

c 

IDEGDY 

1*2 


FLAG TO COMPUTE DEGREE-DAYS 

c 

T 

R»4 

0 

COMPUTED TEMPERATURE IN DEGREE DAYS 

c 

EXTERNAL 

REFERENCES 

-- NONE. 

c 

CALLED BY 

— MAIN 

(DRVSNO) 

c 

COMPUTER/LANGUAGE 

- 

IBM 360/91 AT 65FC/F0RTRAN IV 


C 

C DESIGNER/PROGRAMMER - 0 . MAJOR f RESEARCH t DATA SYSTEMSfINC. 

C 

c 

c 

c 

DIMENSION ZC0NST(8) F ARENAMCS) 

DIMENSION STATN<2) f I TMAX < 2 ) f I THIN ( 2 > f THAX 1 < 365 ) f THIi^l ( 365) f 
1 TMAX2(365) fTMIN2<365) fZMEAN(8) fT(36Si8) fDTLR(365fB) f TEMPT ( 365 f 8 ) 
C 


C 

.C 


C 

C 

C 

C 

C 


REALMS ZMEANfSTATNfZCONSTfSTAINT 

INTE'3ER«2 I TMAX f ITMIN fMTHD f I TPROC f UFL AG f NSTATN f lEXT f IDEGDY 


IF(UFLAG.EQ.O) TU=fO. 
IF<UFLAO.EQ.l) TU«32. 

CHECK NUMBER OF STATIONS 
IF(NSTATN.EQ.l) GO TO 900 


Figure C—3. Source listing for subroutine PRETMP. 
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00650 C 
00660 C 
00670 C 
00680 
00690 
00700 

00710 10 

00720 C 
00730 C 
00740 C 
00750 C 
00760 C 
00770 C 
00780 
00790 
00800 C 
00810 C 
00820 C 
00830 C 
00840 C 
008S0 
00860 
00870 
00880 
00890 C 
00900 
00910 
00920 
00930 
00940 C 
00950 C 
00960 C 
00970 
00980 C 
00990 
01000 C 
01010 C 
01020 
01030 

01040 40 

OlOSO 41 
01060 
01070 
01080 C 
01090 CC 
OllOO C 
OHIO 
01120 

01130 42 

01140 43 

01150 C 
01160 C 
01170 C 
01 ISO C 
01190 
01200 
01210 C 
01220 35 

01230 
01240 C 
01250 C 
01260 C 
01270 25 

01200 


CALCULATE ZONE CONSTANTS BASED ON HTPSOHETWC MEAN ELEVATION 
OF ZONE AND ELEVATION OF STATION 

STAINT=STATN(l)-STATN(2) 

DO 10 I>ltNZ 

ZCONST ( I ) = < ZHEANl I ) -STATNl 1 ) l/STAINT 
CONTINUE 

CHECK UNITS 


CALCULATE TEMPERATURE IN DEGREE-DAYS FOR EACH ZONE 

DO 30 J-1>NZ 
DO 20 Ial,ND 

CHECK WHICH TEMPERATURE READINGS BELONG TO WHICH DAY FOR EACH 
STATION. IF ITMP IS I THEN THE READING IS FOR CURRENT DAY. 

IF ITMP IS 2 THEN THE READING IS FOR NEXT DAY. 

IFlITMAXll) .EQ.l) IX«I 
IFdTMAXd) .CQ.2) IX^H-l 
IF<1THAX(2>.EQ.1) I2X-I 
IF< ITMAX(2) .EQ.2) I2X-IF1 

1F<ITMIN(1).EQ.1> IM>I 
IF<ITHIN<1).EQ.2) IM=I41 
IF(ITMIN(2> .EQ.l) I2M»I 
IF( ITHIN<2) .E0.2) I2H=:I41 

COMPUTE MAX AND MIN TEMPERATURES FOR EACH ZONE 

TMAX=ZCONST< J)*<TMAXKIX)-TMAX2( I2X) > 

TMX-TMAXl ( IX)iTMAX 

note: SOUTH FORK BASIN PROCESSING ONLY 


IF(J.E0.3> GO TO 40 
GO TO 41 

IF(TMX.GT.TMAX2< I2X) ) TMX-TMAX2 ( I2X ) 

CONTINUE 

TMIN=«ZCONST<J)*< THINK IH)-TMIN2< I2M) ) 

TMN=TMINK IM)+TMIN 

NOTE! SOUTH FORK BASIN PROCESSING ONLY 

IF<J.EQ.3) GO TO 42 
GO TO 43 

IF(TMN.GT.TMIN2< I2M> ) TMN=TMIN2< I2M) 

CONTINUE 

CHECK METHOD OF COMPUTING nEBREF-DAYS, IF MTHD IS 1 THEN USE 
EFFECTIVE MINIMUM METHOD. IF MTHD IS 0 USE MEAN METHOD, 

IF(MTHD,EQ. 1 ) 00 TO 35 
IF<MTHD,EQ,0) GO TO 25 

IF(UELAG.EQ.O.AND.TMN.LT.O. ) THN^O. 

IF(UFLAG.EQ. 1 . AND.TMN.lt. 32. > TMN=32. 

COMPUTE temperature IN DEGREE-DAYS 

TEMPTd, J) = ((TMX + TMN)/2. )-TU 
IFlTEMPTd, Jl.LT.O. ) TEMPTd. J)=0. 


Figure C-3. (Continued) 
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01290 

20 

COMTINUe 


01300 

30 

CONTINUE 


01310 


CO TO 990 


01320 

900 

CONTINUE 


01330 

C 



01340 

C 

CHECK IF TEMPERATURE IS TO BE COMPUTED IN DEQREE-DAYS 

01350 

c 



01360 


IF<10EG0Y.EQ.0) 60 TO 590 


01370 

c 



013B0 

c 

CHECK IF TEMPERATURES ARE MAX-MIN 


01390 

c 



01400 


IF<1TMAX<1) .EO.O) 00 TO 52 


01410 

c 



01420 

c 

CHECK HETHOO OF COMPUTING DECREE PATS 


01430 

c 



01440 


DO 600 1*1 tND 


01450 


IFCHTHp.EQ.l > GO TO 22 


01460 


IFIMTHD.EQ.O) GO TO 23 


01470 

22 

ZF(UFLAG,EQ.O.AND.TMlHia>.LT.O») TMIN1(1>- 

O.D 

01460 


IF<UFLA6.£0.1.AND.TM1N1U) .LT.32. } THINK I) 

*32.0 

01490 

C* 

COMPUTE TEMPERATURE IN DEGREE DAYS 


01500 

/• 



015^ 

"23 

T<If1)*((T«AXI<I)+THINKI>)/2. >-TU 


01S2O 

c 

1F<T(Jf1>*1.T.0.0> T<I»1)«OfO 


01530 

600 

CONTINUE 


01540 

C 



91 550 


60 TO 590 


01560 

52 

CONTINUE 


01570 


DO 605 1*1 »ND 


01560 


xf<mthd.eo.i> go to S3 


01S90 


IFIMTHD.EO.O) GO TO 54 


01600 

53 

IF(UFLAG»EQ.0<AND,T<1«1) .LT.O, ) T(lrl)*0. 


01610 


IF(UrLAG.EQ.l.AND.T(lFl>,LT.32. > T<I> 1 )*32 


01620 

54 

TU.1)*T(I»11-TU 


01630 

60S 

CONTINUE 


01640 

590 

CONTINUE 


01650 

C 



01660 

c 

CHECK IF TEMPERATURE IS TO BE AUTQHATICALLY 

EXTRAPOIATEB TO 

01670 

c 

ELEVATION ZONE. IF NOT* USE THE LAPSE RATES 

GIVEN AS INPUT 

01680 

c 



01690 


IF(IEXT.EO.O> GO TO 950 


01700 


IFIUFLAG.EQ.O) ZCON*100. 


01710 


IF(UFLAG.E0.1> ZCON*tOOO« 


01720 


DO 602 J«ltNZ 


01730 


ZCONSTIJl-STATMin-ZMEANIJ) 


01740 


DO 601 1*1 fND 


01750 


TEMPT (1 » J ) -T < I * n + ( ZCONST < J ) /ZCON ) 4DTLR < I 

til 

01760 

601 

CONTINUE 


01770 

602 

CONTINUE 


01780 


00 TO 990 


01790 

950 

CONTINUE 


01800 

C 



01810 

C 

EXTRAPOLATE TEMPERATURES U8IM6 THE GIVEN LAPSE RATES 

01820 

C 



01830 


DO 603 J«liNZ 


01640 


DO 604 I*liND 


01850 


TEMPT(I» J)»Tn»l>+DTLR(l»J> 


01860 

604 

CONTINUE 


01870 

603 

CONTINUE 


01880 

C 



01890 

990 

RFTItAM 



Figure C-3. (Continued) 
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